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ABSTRACT 


The  Asilomar  Conference  on  Signals,  Systems  and  Computers  is  a  technical 
conference  dealing  in  signal  and  image  processing,  communications,  sensor  systems,  and 
computer  hardware  and  software.  Sponsored  by  the  Naval  Postgraduate  School  and  San 
Jose  State  University,  in  cooperation  with  the  ffiEE  Signal  Processing  Society,  the 
conference  is  held  annually  at  the  Asilomar  Conference  Facility  in  Pacific  Grove, 
California.  Although  the  Asilomar  Conference  is  oriented  toward  computers  and  new 
technology,  it  has  yet  to  exploit  the  full  capabilities  of  the  Internet. 

The  purpose  of  this  thesis  is  to: 

a.  Analyze  the  processes  involved  in  the  Asilomar  Conference  on  Signals, 
Systems,  &  Computers, 

b.  Improve  the  article  submission  and  review  process, 

c.  Outline  a  target  information  system, 

d.  Implement  a  portion  of  the  target  system. 

Two  major  portions  of  the  target  system  are  implemented  using  an  IBM  compatible 
PC:  1)  the  ability  for  authors  to  submit  abstracts  and  summaries  via  the  Internet,  2)  to 
allow  conference  administrators  to  manage  the  database  via  the  Internet.  Dynamic 
World  Wide  Web  pages  are  created  using  Borland  Delphi  as  the  programming  base, 
O’Rielly’s  WebSite  as  the  web  server,  and  two  Conunon  Gateway  Interface  elements  for 
Delphi  recently  developed  by  Ann  Lynnworth  of  HREF  Tools  Corp.  The  portions 
implemented  lay  the  foundation  for  a  system  that  could  revolutionize  the  way 
conferences  are  conducted  by  unleashing  the  power  of  the  Internet. 
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1.  INTRODUCTION 


The  Asilomar  Conference  on  Signals,  Systems  and  Computers  is  a  technical 
conference  dealing  in  signal  and  image  processing,  communications,  sensor  systems,  and 
computer  hardware  and  software.  Sponsored  by  the  Naval  Postgraduate  School  and  San 
Jose  State  University,  in  cooperation  with  the  IEEE  Signal  Processing  Society,  the 
conference  is  held  annually  at  the  Asilomar  Conference  Facility  in  Pacific  Grove, 
California. 

A.  OBJECTIVES 

The  objectives  of  this  Thesis  are  to: 

1)  Analyze  the  processes  involved  in  Asilomar  Conference  on  Signals, 
Systems,  &  Computers, 

2)  Improve  the  article  submission  and  review  process, 

3)  Outline  a  target  information  system, 

4)  Implement  a  portion  of  the  target  system. 

B.  OUTLINE 

Section  n  covers  background  material  such  as,  a  description  of  the  Asilomar 
Conference  and  its  organization,  the  submission  process  for  authors  submitting  papers. 


and  the  article  review  and  acceptance  process.  The  system  development  process  is 
explained  in  Section  HI.  The  following  steps  were  used  in  our  development 
methodology; 

1)  Develop  a  baseline  assessment  -  what  exists  now,  how  is  it  being  used, 
and  what  users  would  like  to  see  improved. 

2)  Define  the  target  system  -  compile  the  information  gathered  during  the 
baseline  assessment  and  develop  a  system  that  improves  the  process  for 
all  concerned. 

3)  Select  a  migration  path  -  decide  how  to  move  from  the  existing  system  to 
the  target. 

Section  IV  discusses  the  implementation  of  the  target  system.  This  section  also 
includes  system  flow  diagrams  and  a  description  of  every  program  element  that  comprise 
the  target  system.  Conclusions  and  recommendations  for  fiirther  enhancements  to  the 
system  are  covered  in  Section  V. 
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n.  BACKGROUND 


Three  views  will  be  presented  to  develop  a  detailed  understanding  of  the  present 
conference  system:  1)  an  outline  of  the  procedures  required  to  conduct  a  conference;  2)  a 
description  of  the  structural  organization  of  the  different  committees  which  guide  the 
conference;  and  3)  an  overview  of  the  processes  from  the  participants’  perspective. 


A.  CONFERENCE  OVERVIEW 


Approximately  one  year  before  the  conference  convening  date,  the  Conference 
publishes  a  “call  for  papers”  to  solicit  articles  for  presentation.  Interested  individuals 
submit  an  abstract  and  summary  of  the  articles  they  propose  to  present.  A  few  months 
before  the  conference  convenes,  the  collected  submissions  are  reviewed  for  acceptance. 
Selected  article  abstracts  are  published  in  a  “Final  Program  and  Abstract  Catalog.”  The 
catalog  is  distributed  to  potential  attendees  to  generate  interest  in  the  conference  and 
provide  an  idea  of  the  topics  to  be  covered. 

The  actual  conference  takes  place  over  a  three-day  period,  with  four  half-days  of 
presentations.  Presentations  are  organized  by  topic  area  into  sessions,  with  eight  sessions 
going  on  simultaneously  during  each  half-day.  Each  session  will  have  6-8  oral 
presentations  or  up  to  16  poster  presentations.  If  the  number  of  presentations  for  a  given 
topic  is  insufficient  to  fill  an  entire  moming/aftemoon,  the  session  may  be  split  into  two 
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half-sessions.  On  average,  about  seventy  presentations  are  given  each  half-day.  Because 
eight  sessions  run  concurrently,  attendees  are  not  able  to  hear  every  article  presented. 
Following  the  conference,  each  registered  participant  is  mailed  a  set  of  conference 
proceedings  containing  articles  presented  at  the  conference. 


B.  STRUCTURAL  ORGANIZATION  OF  THE  CONFERENCE 

The  conference  is  guided  by  two  volunteer  committees;  1)  the  conference 
committee  and  2)  the  steering  committee.  Both  are  staffed  by  technical  experts  in  the 
various  fields  of  signal  processing.  The  conference  committee  includes  the  Publicity, 
Publication,  Coordination,  and  Technical  Program  Chairpersons  (Chairs).  The  Technical 
Program  Chair  heads  the  Technical  Program  Committee  which  has  final  responsibility 
for  developing  the  technical  program  and  publishing  the  Proceedings.  The  Technical 
Program  Committee  structure  is  shown  in  Figure  2-1.  Principal  tasks  of  the  Technical 
Program  Chair,  responsible  for  the  technical  content  of  the  conference,  include 
determining  which  topics  are  to  be  included  in  the  “Call  for  Papers”  and  presiding  over 
the  review  process.  Responsibility  for  specific  topic  areas  is  delegated  down  to  6-7 
Technical  Area  Chairs  (TACs).  Their  primary  task  is  to  review  submitted  articles  within 
their  area  and  select  those  best  suited  for  presentation.  Each  TAC  is  assisted  by  several 
Session  Chairs  who  coordinate  and  schedule  the  individual  sessions.  Sessions  Chairs 
invite  3-4  papers  on  topics  which  they  feel  are  of  particular  interest.  These  “invited” 
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papers  are  automatically  selected  for  presentation  and  are  not  subject  to  review. 

The  Steering  Committee’s  role  is  to  guide  the  long  term  goals  of  the  conference. 
Its  main  contribution  is  to  nominate  the  General  Chair  and  the  other  conference 
committee  Chairs.  However,  the  Steering  Committee  is  not  directly  involved  with  the 
technical  program  setup,  therefore  it  is  not  discussed  further  in  this  document. 


C.  PROCEDURAL  FLOW  OF  THE  CONFERENCE 

Participants  in  the  Conference  can  be  divided  into  four  roles;  attendees,  authors, 
organizers,  and  reviewers.  Organizers  conduct  the  required  administrative  functions, 
reviewers  select  articles  for  presentation,  authors  write  articles  and  make  presentations, 
and  attendees  attend  the  conference.  Each  of  these  roles  is  accompanied  by  a  distinct  set 
of  procedmes  that  must  be  completed.  A  particular  individual  may  fill  more  than  one 
role. 


1.  Attendees 

Attendees  begin  their  participation  by  gathering  information  about  the 
upcoming  conference.  Information  is  obtained  on-line  via  an  established  World  Wide 
Web  (WWW)  homepage  or  off-line  via  an  established  mailing  list.  Registration  is  done 
manually  via  the  U.  S.  Postal  Service,  sometimes  referred  to  as  snail  mail  (s-mail). 
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Bank  checks  and  cash  are  the  only  form  of  payment  which  the  conference  currently 
accepts.  Once  registered,  attendees  will  receive  an  “Abstract  Catalog”  which  describes 
the  articles  to  be  presented.  They  may  peruse  the  catalog  to  decide  which  presentations 
to  attend.  Attendees  receive  a  copy  of  the  conference  proceedings  about  two  months 
after  the  conference. 


2.  Authors 

An  author  is  someone  who  wishes  to  present  recent  research  results. 
Information  on  topics  and  the  submission  process  are  obtained  from  the  “Call  for 
Papers.”  Only  a  title,  abstract,  and  extended  siunmary  are  required  to  have  an  article 
considered  by  the  Conference  Technical  Program  Committee.  Currently,  submissions 
are  accepted  via  electronic  mail  (e-mail)  and  s-mail.  Unless  invited,  the  article’s  abstract 
and  summary  are  reviewed  for  selection,  and  authors  are  notified  by  mail  regarding  the 
acceptance  or  rejection  of  their  article(s).  If  selected,  they  must  turn  in  a  complete  copy 
of  the  article  at  the  conference  to  be  used  for  publishing  in  the  conference  proceedings. 


3.  Organizers 

Organizers  consist  of  the  committee  members  and  a  single  administrator.  They 
are  responsible  for  publishing  information  on  the  WWW  homepage  and  for  sending  out 
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infonnation  to  the  mailing  list.  Registrations  and  submissions  are  collected  and  sorted. 
After  the  review  session,  the  administrator  compiles  and  sends  out  accept/reject  notices 
and  the  abstract  catalog.  After  the  conference,  proceedings  are  published  by  the  Institute 
of  Electrical  &  Electronics  Engineers  (IEEE)  Computer  Society  Press.  Abstracts  and 
summaries  (whether  accepted  or  rejected)  are  discarded  two  months  after  the  conference. 


4.  Reviewers 

The  Technical  Area  Chairs  are  responsible  for  reviewing  all  articles  submitted 
within  their  topic  areas.  All  reviews  are  done  during  a  single,  one-day  meeting. 
Abstracts  are  the  primary  basis  forjudging  articles,  but  the  extended  summaries  are 
available  if  more  information  is  sought.  Topic  areas  are  generally  defined  through 
“keywords.”  No  comments,  notes,  or  other  documentation  is  maintained  on  the 
reviewer’s  thoughts  or  opinions  of  the  submissions.  The  Technical  and  General  Chairs 
participate  in  the  review  and  resolve  any  disputes  that  may  arise. 
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Figure  2-1.  Asilomar  Conference  Organization. 
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in.  METHODOLOGY 


A.  BASELINE  ASSESSMENT 


The  assessment  of  the  current  Conference  system  includes  a  characterization  of 
the  organization's  business  functions  and  key  processes.  Data  for  this  analysis  was 
collected  through  interviews  with  organizers  and  a  survey  of  1995  Conference  attendees. 

1.  Business  Functions 

Key  business  functions  for  the  conference  are:  1)  attracting  attendees  and  authors; 
2)  determining  topic  areas;  3)  collecting  article  abstracts  and  summaries;  4)  reviewing 
and  selecting  articles;  and  5)  disseminating  the  article's  information.  These  functions  are 
primarily  the  responsibility  of  the  Conference  Committee.  Forces  influencing  these 
functions  are  improvements  in  technology,  trends  in  research  and  development,  and 
pressure  on  academic  faculty  to  publish. 

The  Conference  Registrar  hired  by  the  Conference  Committee  collects  the  article 
submissions.  Each  submission  consists  of  an  abstract  ( 1 00-150  words)  and  an  extended 
summary  (500-1000  words).  While  abstracts  are  limited  to  text  only,  summaries  may 
contain  graphics  and/or  complex  equations.  ASCII  text  e-mail  is  sufficient  for 
submitting  abstracts,  but  is  unable  to  handle  the  graphics/equations  in  a  summary. 
Summaries  may  be  submitted  by  either  s-mail  or  e-mail  in  plain  text  ASCII  format. 
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S-mail  has  no  limits  on  content,  but  lacks  the  convenience  of  electronic  transfer, 
especially  at  the  receiving  end  where  someone  must  then  enter  it  into  the  Abstract 
Catalog.  Technical  Area  Chairs  travel  to  Monterey  to  review  and  select  articles  during  a 
one-day,  marathon  review  session.  Abstracts  and  summaries  are  reviewed  by  the 
assigned  Chair  and  the  article  is  either  accepted  or  rejected.  If  too  many  articles  are 
accepted,  the  Technical  Chair  arbitrates  a  compromise.  Not  only  is  this  expensive  ( the 
conference  pays  to  fly  everyone  in),  but  the  amount  of  time  available  is  insufficient  to 
thoroughly  review  the  submissions.  As  a  result,  article  selection  may  sometimes  be 
based  more  on  the  reputation  of  the  author  than  on  the  merits  of  the  paper. 

Dissemination  of  the  articles  takes  place  in  two  forms,  presentation  at  the 
conference  and  publication  in  the  conference  proceedings.  Putting  on  the  presentations 
incurs  the  greatest  effort  and  expense  for  the  conference.  Coordinating  and  paying  for 
the  resources  required  to  bring  all  the  players  together  in  one  location  is  also  the  most 
challenging  problem.  For  attendees,  the  conference  fee  is  generally  trivial  next  to  the 
cost  of  transportation,  lodging,  and  missed  work. 

An  abstract  catalog  is  published  and  distributed  prior  to  the  conference.  Still, 
most  people  who  attend  presentations  are  not  familiar  enough  with  the  topic  to 
effectively  interact  with  the  author.  The  most  useful  exchange  of  ideas  often  occurs  in 
one-on-one  interactions  that  take  place  outside  the  scheduled  presentations. 

Conference  proceedings  are  a  bulky  set  of  documents  that  often  end  up  on  a 
bookshelf  like  a  trophy,  never  to  be  taken  down  again.  Most  attendees  are  only 
interested  in  one  or  two  articles,  but  their  only  option  is  to  obtain  the  entire  document. 
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As  a  result,  more  conferences  have  started  to  offer  the  proceedings  in  a  CD-ROM  format 
which  allows  readers  to  download  only  articles  of  interest.  In  addition,  a  large 
percentage  of  the  conference  fee  is  required  to  cover  these  printing  costs. 

2.  Information 

Dissemination  of  information  is  the  primary  purpose  of  this  conference.  The 
entire  process  is  built  around  moving  information  from  the  authors  (primary  suppliers)  to 
the  attendees  (primary  customers).  The  flow  of  information  throughout  the  conference 
process  is  as  follows; 

1.  The  conference  publishes  information  on  desired  submissions, 

2.  Authors  return  information  about  their  articles, 

3.  Reviewers  determine  whether  the  article  is  desirable  for  presentation, 

4.  Attendees  come  to  the  conference  to  obtain  article  information. 

3.  Applications 

The  analysis  of  applications  will  include  processes  which  are  not  yet  automated. 
Existing  automated/on-line  systems  consist  of  an  FTP  server  with  which  attendees 
download  details  about  the  conference  (location,  cost,  etc.),  an  e-mail  address  to  which 
plain  text  ASCII  electronic  submissions  may  be  sent,  and  a  World  Wide  Web  homepage 
which  provides  a  central  point  of  reference.  Non-automated  processes  include  mailing 
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conference  information  to  a  previous-attendees  mailing  list,  collecting  article 
submissions  through  s-mail,  determining  topic  areas,  reviewing  articles,  publishing  the 
hard-copy  conference  proceedings,  and  presenting  the  author's  paper.  Results  of  the 
analysis  are  presented  graphically  in  Appendix  B. 

The  current  system  for  publicizing  the  conference  will  continue.  On-line  systems 
in  place  now  will  continue  to  be  used  to  attract  attendees  and  authors.  Registration 
details  will  continue  to  maintained  on  the  WWW  pages  and  FTP  server.  E-mail  will  be 
retained  as  an  option  for  submitting  articles  (for  a  limited  time),  and  for  general 
communications.  Recognizing  that  everyone  will  not  have  on-line  access,  the  mailing 
list  will  also  continue. 

Determining  topic  areas  is  a  subjective  process  and  will  not  be  modified.  In  the 
future,  individuals  may  be  allowed  to  suggest  topics  which  interest  them.  However, 
collecting  submissions  is  a  prime  candidate  for  re-engineering.  Time  and  monetary  costs 
for  both  the  authors  and  the  conference  are  too  high.  Authors  must  mail  article 
submissions  either  in  hard  copy  or  electronic  format.  Conference  administrators  must 
collect  the  information,  enter  it  into  a  database,  collate  the  abstracts  and  summaries,  and 
arrange  and  print  the  Abstract  Catalog. 

The  review  process  is  another  good  candidate  for  replacement.  The  time  and 
expense  to  bring  reviewers  together  to  conduct  the  reviews  may  become  unnecessary.  By 
making  the  submitted  articles  available  on-line,  reviewers  could  read  them  whenever  and 
wherever  they  desired,  without  having  to  travel  to  Monterey.  The  reviewing  process 
would  be  better  served  by  allowing  reviewers  more  time  to  conduct  reviews.  A  Decision 
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Support  System  (DSS)  could  eventually  be  developed  to  assist  in  the  review  and 
selection  process. 

The  presentation  does  not  need  re-work,  although  improvements  should  be 
considered.  Video  broadcast  and/or  interactive  would  significantly  strengthen  the  quality 
of  the  conference.  Eventually,  interactive  systems  may  even  mature  to  a  point  where  it  is 
no  longer  desirable  to  travel  to  distant  locations  for  a  conference.  But  for  now,  the  social 
interactions  and  technical  difficulties  are  enough  to  maintain  the  presentation  as  a  main 
method  of  information  dissemination. 

Hard-copy  conference  proceedings  would  ideally  be  eliminated  by  a  fully  on-line 
system.  An  on-line  archive  of  presented  articles  would  be  more  efficient  and  cost 
effective.  Attendees  could  decide  whether  they  wish  to  receive  a  printed  proceedings. 
Conference  registration  fees  of  those  desiring  a  hard-copy  would  include  printing  costs. 
Registration  fees  for  everyone  else  could  be  reduced  by  that  amount. 

4.  Technology 

The  use  of  technology  is  presently  limited,  but  there  is  now  a  strong  desire  to 
exploit  the  power  of  the  Internet.  All  on-line  services  are  run  on  a  UNIX  local  area 
network  (LAN)  at  the  Naval  Postgraduate  School.  The  W.  R.  Church  Computer  Center's 
Visualization  Lab  provides  the  server  for  the  Asilomar  Conference  WWW  Home  Page. 

In  addition,  a  PC  LAN  is  available  in  the  Electrical  and  Computer  Engineering  (ECE) 
Department. 
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5.  Survey  Results 


Attendees  to  the  1995  Asilomar  Conference  on  Signals,  Systems,  &  Computers 
were  given  the  opportunity  to  complete  a  survey  about  their  capabilities  and  opinions 
regarding  an  on-line  conferencing  system.  The  only  respondents  were  individuals  who 
presented  articles  at  the  conference.  Since  the  initial  stage  of  this  project  is  geared 
toward  the  submission  of  articles  to  be  considered  for  presentation,  the  narrow  scope  was 
acceptable.  Views  from  a  broader  sample  will  be  beneficial  in  the  later  stages.  Of  the 
one  hundred  and  eighteen  (118)  surveys  returned,  only  one  did  not  support  an  on-line 
system.  Most  respondents  have  WWW  access  and  Netscape  was  by  far  the  browser  of 
choice.  Responses  were  very  positive  regarding  web  access  to  retrieve  registration 
materials,  submit  article,  and  preview  accepted  abstracts.  However,  responders  were 
unsure  whether  they  would  send  comments  to  the  authors  about  their  articles.  A 
summary  of  the  results  is  included  in  Appendix  D. 

6.  Summary 

The  Asilomar  Conference  on  Signals,  Systems,  &  Computers  has  begun  the 
transition  to  the  information  age,  but  has  taken  only  few  small  steps.  Successfully  re¬ 
engineering  the  processes  that  make  up  the  conference  will  require  a  paradigm  shift,  the 
extent  of  which  the  members  of  the  conference  do  not  yet  realize.  Our  project  is  viewed 
by  most  as  simply  an  added  convenience  for  users  to  be  able  to  submit  documents  on- 
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line.  However,  a  great  deal  of  possibilities  are  being  overlooked.  This  new  system  could 
eventually  revolutionize  the  manner  in  which  die  conference  is  conducted.  What  is 
required  is  a  willingness  of  the  conference  sponsors  to  explore  the  latest  technology 
offered  by  the  WWW. 

Realistic  measures  of  success  of  the  new  system  are  mostly  subjective  issues  of 
user  satisfaction.  However,  a  real  measurement  will  be  made  in  cost  savings,  both  in 
travel  expenses  for  reviews  and  administrative  savings.  Measuring  user  satisfaction  is 
always  difficult.  By  placing  a  "Call  for  Papers"  on  the  WWW  homepage  in  addition  to 
the  usual  mailing  list,  the  widest  possible  dissemination  of  conference  information  is 
possible.  Acceptance  of  the  new  system  will  be  gauged  by  actual  usage.  A  survey  of 
respondents  can  be  taken  as  well  to  discover  how  they  obtained  conference  information. 

On  the  review  process,  user  satisfaction  becomes  even  more  difficult.  One 
measure  will  be  to  count  how  many  people  review  an  article,  on  average.  However,  this 
is  not  completely  accurate  since  more  reviews  do  not  automatically  translate  into  "better" 
reviews.  Satisfaction  of  the  reviewers  would  be  a  good  measure  because  they  could 
gauge  whether  having  a  more  relaxed  atmosphere  to  do  the  review  was  helpful.  They 
could  also  estimate  their  own  ability  to  conduct  the  review. 

B.  TARGET  SYSTEM 


As  stated  in  the  introduction,  part  of  the  goal  of  this  thesis  was  to  develop  a  target 
system  and  implement  a  portion  of  it.  Users’  goals  for  the  system  were  acquired  from 
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the  survey  conducted  and  through  meetings  with  conference  staff  members.  These  goals 
serve  as  the  blueprint  for  the  system  design. 

1.  User  Goals 

The  primary  goal  of  the  conference  is  to  be  able  to  collect  and  process  article 
abstracts  and  summaries  efficiently.  There  is  no  requirement  for  electronic  submission, 
but  the  more  people  use  the  system,  the  greater  the  efficiency  will  be.  To  accomplish 
this  task,  the  system  must  be  able  to: 

1 )  reliably  receive  and  number  documents, 

2)  print  documents, 

3)  maintain  Abstracts  separate  from  Extended  Summaries, 

4)  sort  incoming  documents  by  Keywords, 

5)  send  automated  acknowledgments  to  submittor, 

6)  keep  track  of  what  is  sent  and  received, 

7)  provide  the  staff  access  to  submissions,  but  prevent  unauthorized  viewing. 

Finally,  maintainability  is  a  concern.  The  target  system  for  the  Asilomar  conference  on 
Signals,  Systems,  &  Computers  consists  of  the  following  on-line  services: 

1)  conference  information, 

2)  registration  and  payment, 

3)  article  submission. 
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4)  article  review, 

5)  article  archiving. 

1)  Conference  information 

Information  regarding  the  conference  program,  registration,  submission 
process  and  local  points  of  interest  such  as  dining  and  hotels  will  be  available  on-line. 

2)  On-line  Registration 

Attendees  not  only  receive  information  about  the  conference,  they  can 
register,  reserve  hotel  rooms,  rental  cars,  and  dinning  arrangements.  Everything  will  be 
purchased  on-line  through  the  convenience  of  electronic  commerce.  The  system  will 
also  maintain  a  database  of  names  and  addresses  of  conference  attendees. 


3)  On-line  Submission 


Authors  can  submit  their  articles  and  extended  summaries  from  any 
Internet  connection. 


I 
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4)  On-line  Review 


Articles  are  reviewed  and  selected  on-line  via  the  Internet  with  any 
standard  web  browser.  Accept  and  reject  letters  are  automatically  printed  once  the 
reviewing  process  is  complete. 

5)  On-line  Article  Archive 

Articles  are  available  for  review  and  download  over  the  WWW  which 
replaces  a  need  for  hard  copy  proceedings. 

2.  Future  Possibilities 

The  ultimate  goal  for  the  conference  is  a  WWW  system  which  covers  every 
aspect  of  the  Conference;  information,  registration,  submission,  and  continual  interaction 
on  various  topic  areas  through  news  groups,  chat  rooms,  and  e-mail.  Eventually,  on-line 
capabilities  may  replace  the  face-to-face  conference.  Articles  may  be  submitted, 
reviewed,  presented,  and  archived  entirely  on-line.  The  "conference"  is  no  longer  a 
physical  meeting  at  a  specific  place  or  time.  Interested  individuals  can  submit  articles 
and  recorded  presentations  on  a  continual  basis.  Articles  are  maintained  on  server  for 
access  on  demand.  The  social  interactions  are  replicated  through  e-mail,  news  groups, 
and  chat  rooms.  The  exchange  of  information  is  an  on-going  process. 
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c. 


MIGRATION  TO  THE  TARGET 


Reliability  in  the  system  is  paramount.  Migration  must  occur  with  a  minimum  of 
risk  to  the  conference,  as  data  loss  would  be  entirely  imacceptable. 


1.  Path  to  Target 


The  five  services  discussed  in  Section  IH.  D  could  be  implemented 
independently,  or  concurrently.  However,  the  logical  serial  path  will  be  as  follows: 

1)  Conference  Information, 

2)  Article  Submission, 

3)  Article  Review, 

4)  Article  Archive, 

5)  Registration  and  payment. 

Re-engineering  the  review  process  is  the  highest  priority  because  this  is  where  the 
most  time  and  money  can  be  saved  and  the  most  value  added  to  the  system.  However, 
on-line  submissions  must  be  accomplished  first.  Otherwise,  administrative  personnel 
would  have  to  store  the  submissions  electronically  before  they  could  be  reviewed  on-line. 
Archiving  should  follow  submission  because  the  on-line  submission  components  will 
serve  as  catalog  information  for  the  archive.  Registration  and  payment  should  be  last 
simply  because  technology  for  universal  electronic  payment  (digital  cash)  is  still 
developing.  On-line  registration  without  on-line  payment  would  only  complicate  the 


19 


r 


process. 

2.  Thesis  Goal 

For  the  purpose  of  this  thesis,  the  submission  process  and  several  administrative 
functions  will  be  automated.  Authors  will  not  only  submit  information  about  their 
articles,  they  will  also  update  their  contact  information  maintained  in  the  conference 
database.  The  system  will  rely  on  HTML  3.0  forms  to  collect  the  information  and 
common  gateway  interfaces  (CGI)  to  place  the  data  into  a  database. 

Implementation  also  requires  the  availability  of  several  system  administration 
functions.  Necessary  capabilities  include  maintaining  passwords,  accessing  the  database, 
updating  the  database  as  articles  are  reviewed  and  selected,  and  printing  articles, 
accept/reject  notices,  and  the  abstract  catalog.  User-friendly  interfaces  and  highly 
automated  CGI’s  will  be  used  to  emphasize  ease  of  use. 
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IV.  IMPLEMENTATION 


A.  ISSUES 

1.  Information  Flow 

The  current  submission  process  is  tedious  for  both  the  Asilomar  Conference  staif 
and  the  submitting  author.  Registration  forms,  abstracts,  and  extended  summaries  must 
all  be  sent  on  paper  or  via  e-mail.  The  conference  staff,  consisting  of  one  person  at  this 
time,  must  then  sort  through  the  myriad  of  papers  and  forms  and  enter  all  the  information 
manually.  Abstracts  must  either  be  retyped  or  scaimed  into  the  old  computer  system,  and 
formatted  for  the  abstract  catalogue  published  at  each  conference. 

The  new  on-line  system  will  eliminate  these  and  other  hassles.  All  information  is 
stored  directly  to  a  database  with  the  exception  of  extended  summaries  which  are  stored 
as  files  in  a  separate  directory.  The  author  saves  printing  and  mailing  costs  as  well.  The 
administration  functions  built  in  to  the  new  system  enables  the  administrator  to 
manipulate  the  database  from  any  Internet  connection.  The  abstract  catalogue  is 
automatically  formatted  and  can  be  printed  with  the  click  of  a  button.  As  more  people 
use  the  system,  the  entire  registration  process  becomes  more  timely,  accurate,  and 
simple. 
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2.  Compatibility  with  the  Current  System 


The  Asilomar  conference  currently  maintains  an  information-only  web  site.  All 
conference  registration,  abstract  submissions,  and  database  functions  are  handled 
manually.  The  system  we  have  created  can  be  accessed  from  the  current  site  and  will 
automate  a  majority  of  the  processes.  Our  system  integrates  the  existing  database  and 
can  be  used  in  conjunction  with  all  manual  processes. 

3.  Platform  Selection 

One  of  the  first  major  decisions  of  this  project  involved  the  selection  of  the 
hardware  platform  best  suited  to  our  needs.  We  considered  two  alternatives;  1)  the  Naval 
Post  Graduate  School’s  UNIX  system,  2)  to  purchase  a  Personal  Computer  to  connect  to 
the  school’s  Ethernet  network.  Factors  affecting  the  decision  included  security,  price, 
available  software,  and  performance.  The  advantages  and  disadvantages  are  delineated 
by  platform. 


a.  UNIX 

The  UNIX  system  offered  speed  and  bandwidth  with  no  monetary 
expenditure,  but  had  some  serious  drawbacks.  The  UNIX  system  did  not  have  a 
functional  database  installed.  An  effort  was  xmderway  to  implement  the  Oracle  database. 
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however,  the  completion  date  was  unknown  at  the  time.  Also  at  that  point,  the  NPS 
system  administrator  was  not  in  favor  of  allowing  students  to  run  Perl  executables  from 
their  accounts  due  to  security  concerns.  Such  a  limitation  was  unacceptable  for  our 
project.  The  system  administrator  acquiesced  to  a  trial  period  for  our  project,  but  would 
not  guarantee  a  permanent  solution. 

b.  Desktop  PC 

The  PC  offered  access  to  the  latest  software  development,  Internet  access, 
and  database  programs,  but  at  a  cost.  Software  costs  alone  were  expected  to  exceed  $500 
in  addition  to  $3000  for  hardware.  The  PC  also  had  speed  and  bandwidth  limitations. 

c.  System  Selection 

Based  on  the  unstable  commitment  from  the  UNIX  system  administrator 
and  the  proliferation  of  4*  generation  application  development  languages  available  for 
the  PC,  we  elected  to  design  our  system  on  a  PC  running  Windows  95.  The  decision  was 
a  wise  one  because  in  December  of  1995,  the  UNIX  system  was  compromised  and 
security  restrictions  were  increased  as  a  result. 
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4.  Application  Selection 


a.  Common  Gateway  Interface 

Executable  programs  on  the  Internet  must  follow  one  of  a  few 
programming  protocols.  Of  those,  the  most  prevalent  is  the  Common  Gateway  Interface 
(CGI).  Many  different  languages  can  support  CGI  functions,  with  ease  of  use  varying 
greatly  among  them.  Once  we  decided  on  a  PC  platform,  the  list  of  CGI  languages 
narrowed.  There  were  three  major  contenders:  1)  Cold  Fusion  by  Allaire,  inc.,  [Ref  1] 
2)  Delphi  by  Borland  [Ref  2]  and,  3)  DOS  Perl  [Ref  3]. 

Cold  Fusion  is  a  brand  new  product,  still  in  its  first  version  with  little 
dociunentation  available.  It  was  originally  developed  specifically  as  an  interface 
between  a  database  and  the  Internet.  It  came  highly  recommended  from  several 
classmates  who  had  recently  begun  using  it  to  develop  web  applications.  Cold  Fusion 
offered  an  easy  to  use  interface,  a  language  veiy  similar  to  HTML,  and  compatibility 
with  the  latest  version  of  Microsoft’s  Access  database.  However,  it  lacked  powerful 
programming  tools  and  the  flexibility  of  a  true  application  development  language. 

Delphi  is  a  Windows  application  development  tool.  The  programming 
language  is  essentially  Pascal,  but  Delphi  adds  drag  and  drop  programming  elements, 
drop  down  lists,  and  a  point  and  click  interface  to  automate  much  of  the  coding  process. 
Delphi  offers  seamless  connectivity  with  Borland’s  Paradox  database,  which 
coincidentally,  was  the  database  in  use  at  the  time  by  conference  administrators. 
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Unfortunately,  the  CGI  programming  elements  were  new,  and  thus,  poorly  docmnented. 
These  elements  were  developed  outside  of  the  Borland  corporation  by  Ann  L)amworth  of 
HREF  Tools  Corp.[Ref  4],  so  no  technical  support  was  available.  Once  again, 
classmates  who  had  just  begun  using  Delphi  with  these  new  elements  recommended 
them  as  the  solution  for  our  system. 

DOS  Perl  offered  none  of  the  advantages  listed  above  and  since  it  is  not  a 
Windows  application,  the  power  and  flexibility  of  Windows  ‘95  would  be  lost.  As  a 
result,  it  was  eliminated  as  a  choice  early  on. 

Delphi  was  chosen  as  the  language  to  be  used  because  of  the 
programming  flexibility  and  the  compatibility  with  the  database  already  in  use  by  the 
conference  staff.  As  it  turns  out,  Delphi’s  programming  robustness  was  needed  to  its  full 
extent  to  create  the  system  we  did. 

b.  Database 

The  choice  of  database  was  linked  to  our  selection  of  a  CGI  language. 
Cold  Fusion  interacted  seamlessly  with  Microsoft  Access  as  Delphi  did  with  Borland 
Paradox.  Once  the  decision  was  made  to  use  Delphi,  Paradox  was  the  logical  choice. 

c,  Web  Server 

Selecting  a  web  server  was  a  difficult  choice,  as  there  are  many  products 
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available  with  a  wide  variety  of  functions  and  prices.  From  the  many,  two  stood  out  as 
having  the  functionality  and  compatibility  desired  for  our  system.  Those  were  Netscape 
HTTPD  [Ref  5]  and  O’Rielly’s  Website  [Ref  6],  Our  choice  was  made  based  on  word  of 
mouth  recommendations  from  classmates  experienced  in  using  both  products.  Website 
offered  a  better  combination  of  ease  of  use,  flexibility,  performance,  and  price.  Website 
was  also  compatible  with  both  Cold  Fusion  and  Delphi  programming  languages. 

5.  Security 

System  protection  is  a  primary  concern  in  this  project.  Authors  from  literally 
around  the  world  will  be  submitting  information,  abstracts,  and  extended  summaries  via 
this  system  which  will  be  used  to  accept  or  reject  their  papers.  The  database  will  be  used 
to  maintain  mailing  address  lists  and  an  archive  of  abstracts  to  be  published  in  the 
conference  proceedings.  It  is  therefore  imperative  that  all  data  received  is  accurate  and 
secure. 


a.  System  Protection 

Physically,  the  system  is  located  in  the  Digital  Signal  Processing 
laboratory  at  the  Naval  Postgraduate  School.  This  area  is  only  used  by  students  working 
on  thesis  topics  and  is  locked  at  night.  The  PC  is  password  protected  on  boot-up  and 
uses  a  password  protected  screen  saver.  While  certainly  not  foolproof,  the  protection 
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offered  will  keep  the  average  mischievous  person  at  bay.  The  expected  threat  here  is 
low,  because  of  the  system’s  location  and  the  student’s  respect  for  the  work  of  others. 
The  true  threat  lies  from  Internet  users  notorious  for  attempting  to  hack  systems  for  the 
fun  of  it.  This  issue  is  covered  as  it  applies  to  specific  components  of  our  system. 

b.  Database  Protection 

The  primary  means  of  database  protection  is  timely  backups.  With  the 
tape  backup,  the  entire  contents  of  the  database  will  be  copied  on  a  regular  basis.  Thus, 
for  any  catastrophic  event,  the  data  loss  will  be  minimal.  As  any  system  designer  knows, 
a  computer  is  only  secure  if  it  has  no  connections  to  it  and  is  locked  in  a  vault  that  has  no 
doors.  A  PC  connected  to  the  Internet  has  many  vulnerabilities,  but  we  have  minimized 
those  through  the  design  of  the  system  itself  Database  functions  are  accessed  through 
the  administrative  section  of  the  system.  Access  to  this  area  is  controlled  by  a  password 
form. 

One  problem  with  Internet  applications  is  that  once  someone  knows  the 
name  of  an  executable  file,  he  may  run  that  file  by  typing  the  path  information  into  the 
URL  field  of  his  web  browser.  If  that  file  exists,  it  will  be  executed.  We  have 
programmed  into  every  executable  a  conditional  check  of  a  flag  variable.  This  flag  can 
only  be  set  by  entering  the  appropriate  login  and  password  combination  on  the  first 
screen.  Once  the  password  has  been  entered  correctly,  a  flag  is  set  that  will  allow  a  user 
to  access  all  database  functions.  The  programs  will  execute  without  the  flag  being  set. 
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however  each  program  will  only  print  out  a  warning  message  and  return  the  user  to  the 
login  screen.  So,  even  if  an  xmauthorized  user  discovers  the  names  of  the  executables, 
there  is  no  way  (that  we  know  of)  to  set  the  flag  variable  without  the  proper  login  and 
password. 

The  threat  still  exists  of  a  brute  force  attack  on  the  login  and  password 
combinations.  A  brute  force  attack  is  one  where  a  hacker  attempts  to  guess  the  login  and 
passwords  of  legitimate  users.  This  small  threat  can  be  minimized  even  more  through 
limiting  the  number  of  users  (currently  two),  frequent  password  changes,  and  using  good 
password  selection  techniques  -  including  upper  and  lower  case,  digits,  and  special 
characters  within  the  password. 

c.  Application  Protection 

(1)  Website  Security.  The  denial  of  access  to  the  PC’s  hard  drive  is  the 
responsibility  of  the  server  software.  Website.  This  program  controls  all  Internet  access 
functions  of  the  system.  Inherent  in  its  design  is  a  restriction  that  limits  users  to 
directories  higher  than  the  C:\Website  directory.  In  other  words,  when  a  browser 
accesses  the  system,  the  lowest  directory  available  to  it  is  either  C:\Website\Htdocs  or 
C;\Website\cgi-win.  It  is  not  possible  to  access  the  root  directory  or  any  other  directory 
than  those  stated  above.  Website  also  does  not  allow  file  uploads  (i.e.  a  user  sending  a 
file  to  our  computer)  or  modification  of  files  on  our  system.  Therefore,  a  user  may  look 
at  and  execute  any  file  that  we  place  higher  in  the  directory  structure  than  C;\Website, 
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but  nothing  else. 

(2)  FTPD  Security.  One  of  the  requirements  of  the  system  was  that 
authors  must  be  able  to  upload  Post  Script  files  of  their  extended  summaries.  This 
required  FTP  server  software  be  installed.  This  software  inherently  adds  security  risks 
because  it  grants  users  the  ability  to  upload  and  download  files  as  well  as  to  view  and 
modify  the  contents  of  a  directory  (i.e.  delete  and  rename).  Security  controls  built  in  to 
the  software  package  allow  the  server  administrator  to  restrict  a  user’s  access  ri^ts. 
Currently  we  have  limited  all  users’  ri^ts  to  file  upload  only.  Users  cannot  view  the 
contents  of  the  directory,  modify  its  contents,  or  change  directories.  The  strength  of  this 
protection  lies  within  the  strength  of  the  program  itself  We  are  currently  using  a 
shareware  version  of  WFTPD  [Ref  7],  a  popular  FTP  server.  By  limiting  the  user’s 
ability  to  change  directories,  modify  directory  contents,  and  view  directory  contents,  the 
ability  to  corrupt  another  author’s  data  is  slight. 

B.  System  Design 

1.  System  Overview 

The  entire  Asilomar  Conference  System  consists  of  the  following  elements: 

1)  The  Asilomar  Conference  information  homepage 

2)  The  article  submission  sub-system 

3)  The  administration  sub-system 
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4)  The  article  review  sub-system. 


Prior  to  this  thesis,  only  the  first  element  existed.  The  second  and  third  have  been 
implemented  and  comprise  the  bulk  of  this  thesis.  The  fourth  element  will  be  completed 
in  a  follow-on  project. 

a.  System  Flow  Diagrams 

The  following  diagrams  show  the  relationship  of:  1 )  the  Asilomar 
Conference  System  as  a  whole,  2)  the  article  submission  sub-system  and,  3)  the 
administration  sub-system.  The  information  homepage  and  the  article  review  sub-system 
were  not  within  the  scope  of  this  thesis,  and  as  such,  are  not  included. 
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Figure  4-1.  Asilomar  Conference  System. 
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Figure  4-2.  Article  Submission  Sub-system. 
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Figure  4-3.  Administration  Sub-system. 
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2. 


Article  Submission  Sub-system  description 


The  Article  Submission  Sub-system  is  a  combination  of  HTML  pages  and  Delphi 
executable  programs  that  form  the  user  interface  for  the  conference  registration  process. 
Images  of  each  HTML  page  are  at  the  end  of  this  chapter  and  are  referred  to  in  the 
program  descriptions  below. 

Via  this  system,  users  can  add  and  update  personal  information  as  well  as  submit 
articles  and  paper  summaries  for  review.  Security  is  not  a  concern  in  this  sub-system 
because  any  changes  made  to  a  user’s  personal  information  is  sent  to  a  temporary 
database.  The  update  is  only  made  permanent  when  reviewed  by  the  system 
administrator. 


a.  Author  submission  sub-system  introduction 

The  introduction  HTML  page  (lntrol0.htm)  welcomes  the  user  and  offers 
three  hypertext  link  options  as  shown  in  Fig.  4-4.  All  figures  appear  at  the  end  of  Section 
IV. 

1 )  Obtain  information  for  on-line  submission  (lnfol2.htm), 

2)  Obtain  information  for  manual  submission  (ManuallLhtm), 

3)  Transfer  to  the  on-line  submission  process  (Searchl3.htm). 
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(1)  On-line  submission  information  (Infol2.Iitm),  Fig.  4-5.  This  page 
explains  the  requirements  and  process  necessary  for  a  user  to  submit  information  with 
the  WWW-based  system.  There  is  a  hypertext  link  to  £xtsumm.htm  (Fig.  4-6)  which  is 
an  HTML  page  that  explains  what  an  extended  summary  is.  In  addition,  this  HTML  page 
contains  two  links  which  enable  a  user  to  download  a  file  transfer  protocol  (FTP) 
program  in  either  Windows  3.1  or  ’95  format,  as  FTP  is  required  for  users  who  wish  to 
upload  an  extended  summary  for  review. 

(2)  ManuaIsubmissioninformation(Manualll.htm)page,  Fig.  4-7.  This 
HTML  page  briefly  outlines  the  steps  necessary  for  an  author  to  submit  personal  and 
article  data  via  U.S.  mail. 

(3)  Submit  information  on-line  (Searchl3.htm),  Fig.  4-8.  The  first  step  in 
the  on-line  submission  process  is  a  check  of  the  database  for  the  author’s  name.  This 
HTML  page  asks  the  user  to  input  his  first  and  last  name  and  middle  initial.  The  HTML 
form  then  calls  a  Delphi  executable  (D13.exe),  which  conducts  the  database  query. 

b.  The  database  query 

The  executable  (D13.exe),  receives  the  author’s  name  and  queries  the 
Attthor.db  database  table.  The  query  has  three  possible  outcomes:  1)  the  author’s  name 
is  not  found,  2)  a  unique  match  is  found,  3)  multiple  matches  are  found.  For  each 
outcome,  the  program  will  create  a  specific  HTML  form. 

Outcome  one:  a  blank  HTML  input  form  is  created  (Fig.  4-9)  that  allows 
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the  author  to  input  his/her  personal  information.  Once  submitted,  this  form  calls  an 
executable  program  (Addl32.exe)  which  stores  the  information  directly  to  the  permanent 
author  table  (Author.db). 

Outcome  two:  an  HTML  form  is  generated  that  contains  all  known 
information  about  the  author  filled  in  the  appropriate  blanks  (Fig.  4-10).  The  author  may 
then  either  accept  the  information  as  is,  or  make  changes  to  it.  When  submitted,  this 
form  calls  an  executable  (Editl32.exe)  which  stores  changed  information  to  a  temporary 
database  to  be  reviewed  by  the  system  administrator.  One  other  possibility  that  had  to  be 
accounted  for  was  when  the  database  returned  a  unique  entry  that  referred  to  a  different 
user.  If  this  is  the  case,  the  author  can  select  a  hypertext  link  to  an  HTML  form 
(Authl312.htin)  which  allows  him/her  to  enter  his  personal  information  (Fig.  4-11). 

Once  the  form  is  filled  in,  Addl32.exe  is  called  to  store  the  information  to  the  permanent 
database,  Author.db. 

Outcome  three:  if  more  than  one  match  is  found,  the  user  is  presented 
with  a  table  of  names  from  which  he/she  can  choose  a  selected  record  by  clicking  on  the 
hypertext  entry  (Fig.  4-12).  Doing  so  will  call  an  executable  (Multil32.exe)  which 
generates  the  same  form  as  the  unique  entry  case  and  performs  the  same  fimctions.  Once 
this  form  has  been  completed,  Editl32.exe  is  called  to  store  the  information  to  the 
temporary  database  table  (Tenipauth.db). 
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c.  Article  submission 

At  this  point,  the  author’s  information  has  been  stored  in  either  the 
permanent  author  table  by  the  executable  program  Addl32.exe,  or  into  the  temporaiy 
author  table  by  Editl32.exe.  Both  of  these  programs,  when  complete,  generate  an 
information  page  that  tells  the  user  he/she  has  completed  the  personal  information 

process  and  should  proceed  to  the  article  submission  by  clicking  the  button  which  calls 
the  next  executable  (Fig.  4-13). 

The  executable  D_Submit.exe  generates  an  HTML  form  that  allows  the  user  to 
input  an  abstract,  title,  keywords,  and  other  relevant  article  information  (Figs.  4-14, 
4-15).  When  submitted,  the  information  is  redisplayed  by  the  executable  Dpaper.exe 

(Figs.  4-16, 4-17).  The  user  is  given  a  message  stating  that  once  this  form  is  submitted, 
the  information  caimot  be  changed. 

d.  Confirmation  Page 

Once  the  user  has  confirmed  the  data  entered  into  the  form  created  by 
Dpapenexe,  a  confirmation  page  is  created  by  the  executable  D2paper.exe  (Fig.  4-18). 
This  final  page  contains  a  unique  registration  number,  instructions  on  how  to  upload  an 
article  summary,  and  Log-in  information  for  the  FTP  server. 
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3.  Administration  Sub-system  description 


Functions  associated  with  maintaining  the  database,  administering  the  system  and 
handling  the  submissions  are  located  in  the  administration  sub-system.  Security  is  a 
major  concern  within  this  portion  of  the  system  because  of  database  integrity  issues. 

The  administration  sub-system  is  password  protected,  and  uses  only  dynamically 
created  OTML  pages.  In  other  words,  any  HTML  form  that  the  user  sees  is  created  by 
Delphi  executable  programs.  This  prevents  would  be  hackers  from  accessing  database 
management  functions  because  each  program  requires  an  access  code  to  create  an  HTML 
form.  The  access  code  is  generated  once  the  user  has  entered  a  correct  login  and 
password.  The  code  is  then  passed  from  executable  to  executable  transparent  to  the  user. 
Anyone  attempting  to  execute  any  of  the  programs  without  having  first  entered  a  correct 
login  and  password  is  given  a  warning  message  instead  of  the  HTML  form  the  program 
would  normally  create.  The  intent  is  not  to  have  an  air-tight  system,  rather  to  prevent  the 
casual  user  and  novice  hacker  from  accessing  the  database.  Encryption  is  not  used,  so 
the  system  is  still  vulnerable  to  sniffers  gaining  passwords  and  access  codes.  Future 
improvements  to  combat  this  vulnerability  could  include  a  one-time  password  system  in 
which  passwords  are  only  valid  for  one  session,  after  which,  a  new  password  must  be 
used.  Another  solution  is  to  install  a  firewall  that  limits  access  to  the  administration  sub¬ 
system  based  on  the  user’s  location.  The  technology  for  both  these  improvements  is 
currently  available. 
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a.  Log-on  and  main  menu 


The  first  page  in  the  admin  sub-system  is  an  HTML  page  (Admin20.htm) 
that  declares  the  purpose  of  the  page  and  includes  a  form  for  entering  a  USERID  and 
PASSWORD  (Fig.  4-19).  This  is  the  only  HTML  page  in  the  admin  sub-system  not 
created  by  a  Delphi  executable  program. 

A  CGI  executable  takes  the  Form  input  (USERID  and  PASSWORD), 
verifies  the  user,  and  generates  an  HTML  page  which  contains  the  Administration  Main 
Menu  (Fig.  4-20).  The  menu  consists  of  buttons,  each  of  which  evokes  a  series  of 
executables  for  the  respective  function.  Failure  to  provide  a  valid  password  generates  an 
HTML  page  which  warns  against  imauthorized  access  and  allows  a  retry. 

b.  Review  changes  to  Author  data 

One  of  the  functions  of  the  Submission  Sub-system  is  to  allow  an  author 
to  update  his/her  personal  information  (see  chap.  IV,  sec.  2c).  These  changes  are  stored 
in  a  temporary  table  called  Tempauth.db.  This  function  allows  the  System 
Administrator  to  review  the  submitted  changes  before  they  become  permanent.  If  the 
entries  appear  to  have  been  changed  maliciously,  they  can  be  rejected.  Otherwise,  they 
are  accepted  and  become  part  of  the  permanent  record.  This  process  requires  four 
executables: 

1 )  Change  Author  (AuChange.exe) 
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2)  View  changes  (ViewChng.exe) 

3)  Make  the  change  (MakeChng.exe) 

4)  Do  not  make  the  change  (NoChange.exe) 

(1)  Author  Changes  (AuChange.exe).  This  program  is  called  from  the 
Admin  Main  Menu  to  retrieve  any  data  in  the  Tempauth.db  table  and  present  it  in  an 
HTML  form  with  selected  information  about  the  Author  (Fig.  4-21).  The  record  number 
of  the  change  is  presented  as  a  hypertext  link  to  the  record  information.  The  System 
Admin  chooses  the  author  whose  record  changes  they  wish  to  review  by  clicking  on  the 
hypertext  record  number. 

(2)  View  changes  (ViewChng.exe).  Called  from  the  dynamically  created 
Author  Changes  Table  (AuChange.exe),  this  program  presents  the  submitted  changes 
side-by-side  with  the  permanent  data  (Fig.  4-22, 4-23).  If  acceptable,  the  “Accept 
Changes”  button  calls  MakeChng.exe  to  replace  the  permanent  data.  Otherwise,  the 
“Discard  Changes”  button  calls  NoChange.exe  which  discards  the  changes. 

(3)  Make  the  Change  (MakeChng.exe).  This  function  replaces  the 
permanent  Author  record  with  the  submitted  changes.  The  data  in  the  Tempauth.db 
Table  is  discarded  after  the  change  is  made.  A  confirmation  page  is  sent  with  the  option 
to  “review  more  changes”  which  links  back  to  AuChange.exe. 
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(4)  Do  not  make  changes  (NoChange.exe).  This  function  discards  the 
changes  without  modifying  the  permanent  Author  record.  A  confirmation  page  is  sent 
with  the  option  to  “review  more  changes”  which  links  back  to  AuChange.exe. 

c.  Edit  Author  data 

This  function  allows  the  system  administrator  to  directly  access  Contact 
Author  data  held  in  the  Author.db  table.  After  presenting  a  form  for  entering  the  first 
name,  last  name,  and  middle  initial  of  the  desired  Author,  a  series  of  screens  is  presented 
to  ensure  selection  of  the  proper  record.  Once  the  Author  has  been  identified,  the 
information  is  presented  in  a  Form.  Changes  made  to  the  Form  go  directly  into  the 
permanent  record. 

Five  programs  are  required  to  implement  this  function. 

1 )  Input  Author  name  (InputAu.exe) 

2)  Search  the  database  and  show  results  (AuthSrch.exe) 

3)  Add  a  new  author  (AuAdd.exe) 

4)  Resolve  multiple  matches  (AuM ulti.exe) 

5)  Edit  the  Author  (AuEditexe) 

(1)  Input  Author  Name  (lnputau.exe).  This  program  generates  an  HTML 
page  with  a  form  to  submit  the  author  name  whose  record  will  be  edited  (Fig.  4-24). 
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(2)  Search  the  database  (AuthSrch.exe).  After  searching  the  database  for 
the  given  author  name,  this  program  branches  according  to  how  many  matches  were 
found.  If  no  match  to  the  submitted  author  name  exists  in  the  database,  a  blank  author 
data  form  is  generated  (Fig.  4-25).  Submitting  this  form  calls  AuAdd.exe.  A  single 
match  generates  an  author  data  form  which  contains  the  database  fields  (Fig.  4-26). 
Submitting  this  form  calls  AuEditexe.  When  multiple  matches  to  the  name  are  found,  a 
table  containing  all  of  the  matches  is  generated  (Fig.  4-27).  Each  match  has  a  hypertext 
link  which  calls  AuMulti.exe. 

(3)  Add  a  new  Author  (AuAdd.exe).  Called  by  submitting  the  new 
author  form,  this  program  takes  the  form  data  and  creates  a  new  author  record.  A 
confirmation  page  is  sent  with  the  option  to  “Edit  another  Author”  which  links  back  to 

lnputAu.exe. 


(4)  Multiple  Matches  (AuMuIti.exe).  This  program  is  called  by  the 
hypertext  links  on  the  multiple  matches  table.  The  record  number  passed  by  the 
hypertext  link  is  used  to  retrieve  an  author’s  data  which  is  presented  in  an  HTML  form 
for  editing.  Submitting  this  form  calls  AuEditexe. 

(5)  Edit  an  Author  (AuEditexe).  This  program  is  called  after  author  data 
has  been  edited  and  needs  to  be  updated  in  the  Author.db  table  (Fig.  4-26).  If  a  unique 
match  was  found  during  the  initial  search,  then  AuEditexe  is  called  by  the  form 
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generated  by  AuthSrch.exe.  If  there  were  multiple  matches  found,  AuEditexe  is  called 
from  the  form  generated  by  AuMultLexe.  To  protect  the  permanent  database,  these 
changes  go  into  a  temporary  table  called  TempAuthor.db.  The  system  Administrator 
must  review  and  approve  the  changes  before  the  permanent  database  is  modified. 

dL  Edit  Article  Data 

This  fimction  allows  direct  access  to  Article  data  held  in  the  SubmissLdb 
table.  Three  options  are  presented  for  finding  a  specific  article  record.  An  article  may 
be  chosen  from  a  list  of  all  the  articles  in  the  database,  from  a  list  of  articles  which  meet 
certain  user-selected  criteria,  or  from  a  list  of  articles  submitted  by  a  certain  author. 
Whichever  option  is  chosen,  the  user  is  presented  with  a  table  of  article  titles  that  are 
hypertext  links  to  the  article  record.  Once  the  article  has  been  identified,  the  information 
is  presented  in  an  HTML  form.  Changes  made  to  the  form  are  submitted  directly  into  the 
SubmissLdb  table.  The  Edit  Article  Data  function  has  the  following  components: 

1 )  Edit  an  Article  ( ArtlEditexe) 

2)  Search  for  the  Article  (ArtlSrch.exe) 

3)  Article  by  Author  Search  (ArtlAuth.exe) 

4)  View  the  Article  (ArtlView.exe) 

5)  Post  the  Article  (ArtlPosLexe) 
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(1)  Edit  an  Article  (ArtlEdit.exe).  Called  from  the  main  menu,  this 
program  creates  an  HTML  page  with  three  selection  options  (Fig.  4-28).  To  generate  a 
table  with  all  the  article  titles,  a  button  links  to  ArtlSrch.exe  with  a  hidden  action  flag 
set  to  “all.”  To  specify  criteria  for  the  article,  a  form  is  presented  with  four  fields: 
invited,  accepted,  keyword,  and  session.  Each  field  has  a  drop-down  box  of  choices. 

The  option  to  not  search  on  the  field  is  available  on  each.  Choices  for  “invited”  and 
“accepted”  are  “yss,”  “no,”  and  “do  not  search  on  this  field.”  The  “keyword”  search 
criterion  has  all  the  keywords  in  the  Keyword.db  table,  and  “session”  has  all  the  sessions 
in  the  Session.db  table.  The  submit  button  calls  ArtlSrch.exe  with  the  hidden  flag  set  to 
’’article”  and  performs  a  query  on  the  selected  fields.  If  each  of  the  four  search  fields  is 
set  to  “do  not  search  on  this  field,”  the  result  is  a  table  containing  all  article  titles. 

To  generate  a  table  of  articles  submitted  by  a  specific  author,  a  form  is  available 
to  input  the  name.  The  submit  button  for  this  form  also  calls  ArtlSrch.exe,  but  the 
hidden  flag  is  set  to  “author.” 

(2)  Search  for  the  Article  (ArtlSrch.exe).  The  action  performed  by  this 
program  depends  on  the  hidden  action  flag  sent  by  the  calling  program.  A  flag  set  to 
“All”  generates  a  table  containing  every  title  in  the  Submissi.db  table.  Each  title  is  a 
hypertext  link  to  ArtlView.exe  with  that  article’s  record  number  (Fig.  4-29).  If  “Article” 
is  the  flag’s  value,  the  SubmissLdb  table  is  queried  based  on  the  criteria  (“invited”, 
“accepted”,  “keyword”,  or  “session”)  submitted  in  the  previous  form,  and  a  similar  table 
is  generated.  If  the  flag  is  set  to  “Author,”  a  search  is  conducted  for  matches  to  the 
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submitted  name.  The  author  search  is  rather  complicated.  Author  names  are  stored  in 
two  different  locations,  depending  on  wiiether  they  are  the  “contact”  author  for  the  paper, 
or  an  “other”  author.  First,  the  Author.db  table,  which  contains  only  contact  authors,  is 
queried  for  matches.  If  there  are  no  matches,  then  the  Submissi.db  table  is  searched  for 
“non-contact  author”  matches  and  the  results  are  displayed  in  an  HTML  table.  If  there  is 
a  contact  author  match,  an  HTML  table  is  generated  with  a  list  of  those  matches  so  the 
exact  author  can  be  determined.  The  authors  in  the  created  HTML  table  are  hypertext 
linked  to  ArtlAuth.exe  so  that  the  query  will  search  through  the  non-contact  authors  as 
well.  If  the  requested  author’s  name  appears  on  the  list,  but  belongs  to  a  different  author 
with  the  same  name,  a  button  is  available  which  links  to  ArtlAuth.exe,  and  a  flag  set  to 
“not  a  contact  author”  so  the  search  will  continue. 

(3)  Article  by  Author  (ArtlAuth.exe).  This  program  is  called  when 
ArtlSrch.exe  finds  a  match  in  the  Author.db  table.  Two  queries  are  done,  one  to  find 
the  articles  with  contact  author  matches,  and  one  for  “other”  authors.  A  table  of  article 
titles  is  generated  with  the  results  of  each  of  these  queries  (Fig.  4-30).  Each  title  is  a 
hypertext  link  to  ArtlView.exe  with  that  article’s  number.  If  the  “not  a  contact  author” 
flag  is  set,  then  the  contact  author  query  is  not  executed  and  only  the  non-contact  authors 
are  searched. 


(4)  View  the  Article  (ArtlView.exe).  Called  by  the  hypertext  link  from 
either  table  of  article  titles  generated,  this  program  displays  the  selected  article’s  data  in 
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a  form.  Using  the  article  record  number  passed  via  the  hypertext  link,  the  article  data  is 
retrieved  and  presented  in  an  HTML  form.  The  user  may  then  edit  any  information 
displayed.  The  submit  button  on  this  form  calls  ArtlPostexe. 

(5)  Post  the  Article  (ArtlPostexe).  Called  from  ArtIView.exe,  article 
data  is  retrieved  from  the  form  and  placed  in  the  SubmissLdb  table,  overwriting 
previous  data.  A  confirmation  page  is  sent  with  the  option  to  “Edit  another  Article.” 

e.  Edit  Sessions 

Sessions  for  identifying  topic  areas  are  maintained  in  the  Session.db  table. 
Although  sessions  remain  constant  for  a  given  conference,  they  may  change  from  year  to 
year.  Through  this  function,  sessions  may  be  modified,  added  or  deleted. 

1)  Choose  Session  (Sessions.exe) 

2)  Edit  a  Session  (SessEditexe) 

3)  Edit  Confirmation  (Se$£dit2.exe) 

4)  Add  a  Session  (SessAdd.exe) 

5)  Addition  Confirmation  (SessAdd2.exe) 

6)  Delete  Session(s)  (SessDeLexe) 

7)  Verification  of  Delete  (SessDel2.exe) 

8)  Deletion  Confirmation  (SessDel3.exe) 
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(1)  ChcM)se  Session  (Sessions.exe).  A  table  of  all  the  current  sessions  is 
displayed  (Fig.  4-3 1 ).  Each  session  identifier  is  a  hypertext  link  to  SessEditexe  with  the 
session  number.  Options  are  available  to  “Add  a  Session”  and  “Delete  a  Session.” 

(2)  Edit  a  Session  (Sess£dit.exe).  The  current  session  name  is  displayed 
in  a  form  (Fig.  4-32).  Changes  made  in  the  form  are  submitted  to  SesEdit2.exe.  The 
option  to  exit  without  changing  also  exists. 

(3)  Edit  Confirmation  (SesEdit2.exe).  This  program  retrieves  the  form 
input  from  SessEditexe  and  posts  the  change  to  the  Session.db  table.  An  HTML 
confirmation  page  is  then  sent  with  the  options  to  edit  more  sessions  or  return  to  the 
main  admin  menu  page. 

(4)  Add  a  Session  (SessAdd.exe).  Called  from  Sessions.exe,  fom  boxes 
are  available  for  entering  new  session  names  (Fig.  4-33).  Any  number  of  the  boxes  may 
be  used.  Submitting  this  form  calls  SessAdd2.exe. 

(5)  Addition  Confirmation  (SessAdd2.exe).  Form  data  is  retrieved  from 
SessAdd.exe  and  non-empty  fields  are  added  to  the  Session.db  table.  To  ensure  proper 
ordering,  sessions  are  placed  in  alphabetical  order.  An  HTML  confirmation  page  is  sent 
with  the  options  to  “Edit  more  Sessions”  or  “Return  to  the  main  admin  page”. 
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(6)  Delete  Session(s)  (SessDeLexe).  An  HTML  table  is  presented 
containing  all  session  numbers  and  names  (Fig.  4-34).  This  presentation  includes  the 
session  number  to  make  it  visually  distinct  from  the  “edit  session”  table.  The  session 
number  is  a  hypertext  link  which  calls  SessDeI2.exe  with  the  record  number.  The  option 
to  “Delete  all  Sessions”  is  also  available  in  the  event  the  system  administrator  wishes  to 
create  a  session  list  from  scratch.  Selecting  “Delete  all  Sessions”  will  set  a  hidden  flag 
to  “DeleteAll”  and  is  passed  to  SessDel2.exe. 

(7)  Verification  of  Delete  (SessDeI2.exe).  This  program  retrieves  the 
hidden  flag  and  the  session  number  query  string.  If  “DeleteAll”  is  not  found,  the  selected 
session  is  deleted  and  a  confirmation  HTML  page  sent.  Otherwise,  an  HTML  page  is 
sent  to  confirm  that  the  user  wants  to  delete  all  of  the  sessions.  Options  available 
through  form  buttons  are:  1)  “Yes  -  DELETE  ALL  Sessions  in  the  Database”  or  2) 
“Cancel -do  NOT  delete.” 

(8)  Deletion  Confirmation  (SessDel3.exe).  Appropriate  sessions  in  the 
Session.db  table  are  deleted  and  an  HTML  confirmation  page  sent  with  the  option  to 
“Edit  more  Sessions”. 

f.  Edit  Rewords 

Keywords  for  identifying  topic  areas  are  maintained  in  the  Keyword,  db 
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table.  Although  they  remain  constant  for  a  given  conference,  they  may  change  from  year 
to  year.  Eight  executable  programs  implement  this  frmction  which  enable  the  user  to 
modify,  add,  or  delete  keywords: 

1 )  Choose  a  Keyword  (Keywords.exe), 

2)  Edit  a  Keyword  (KeyEditexe), 

3)  Edit  Confirmation  (KeyEdit2.exe), 

4)  Add  a  Keyword  (KeyAdd.exe), 

5)  Addition  Confinnation  (KeyAdd2.exe), 

6)  Delete  Keyword(s)  (KeyDel.exe), 

7)  Verification  of  Delete  (KeyDeI2.exe), 

8)  Deletion  Confirmation  (KeyDeI3.exe). 

(1)  Choose  a  Keyword  (Key  words.exe).  A  table  of  all  the  current 
keywords  is  displayed  (Fig.  4-35).  Each  Keyword  is  a  hypertext  link  to  KeyEditexe 
with  the  keyword  record  number.  Options  are  also  available  to  “Add  a  Ke3fword”  and 
“Delete  a  Keyword.” 

(2)  Edit  a  Keyword  (KeyEditexe).  The  selected  keyword  is  displayed  in 
an  HTML  form  (Fig.  4-36).  Changes  are  made  in  the  form  and  submitted  to 
KeyEdit2.exe.  There  is  also  option  to  exit  without  changing. 
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(3)  Edit  Confirmation  (KeyEdit2.exe).  This  executable  program 
retrieves  the  form  input  from  KeyEditexe  and  posts  the  change  to  the  Keyword.db 
table.  An  HTML  confirmation  page  is  sent  with  the  options  to  “Edit  more  Keywords”  or 
“Return  to  the  main  admin  page”. 

(4)  Add  a  Keyword  (KeyAdd.exe).  Called  from  Keywords.exe,  four 
HTML  form  boxes  are  available  for  entering  new  keywords  (Fig.  4-37).  None  of  the 
boxes  require  entries.  Submitting  calls  KeyAdd2.exe. 

(5)  Addition  Confirmation  (KeyAdd2.exe).  Form  data  is  retrieved  from 
KeyAdd.exe  and  non-empty  fields  are  added  to  the  Keywords.db  table.  An  HTML 
confirmation  page  is  sent  with  the  options  to  “Edit  more  Keywords”  or  “Return  to  the 
main  admin  page”. 

(6)  Delete  Keyword(s)  (KeyDeLexe).  A  table  is  presented  which 
contains  the  keyword  record  number  and  name  (Fig.  4-38).  This  presentation  includes 
the  record  number  to  make  it  visually  distinct  fi'om  the  “edit  keyword”  table.  The 
keyword  record  number  is  a  hypertext  link  which  calls  KeyDel2.exe.  The  option  to 
“Delete  all  Keywords”  is  also  available  in  the  event  the  System  Administrator  wishes  to 
create  a  keyword  list  from  scratch.  If  “Delete  all  Keywords”  is  selected,  a  hidden  flag  is 
set  to  “DeleteAll”  and  passed  to  KeyDel2.exe. 
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(7)  Verification  of  Delete  (KeyDeI2.exe).  This  program  checks  the 
hidden  flag  and  retrieves  the  keyword  record  number.  If  “DeleteAll”  is  not  found,  the 
single  keyword  is  deleted  and  a  confirmation  HTML  page  sent.  Otherwise,  an  HTML 
page  is  sent  to  confirm  that  the  user  wants  to  delete  all  of  the  keywords.  Options  are 
available  through  form  buttons  to  “Yes  -  DELETE  ALL  Ke)words  in  the  Database”  or 
“Cancel  -  do  NOT  delete.” 

(8)  Deletion  Confirmation  (KeyDeI3.exe).  Each  ke)word  in  the 
Keyword.db  table  is  deleted  and  an  HTML  confirmation  page  sent  with  options  to  “Edit 
more  Keywords”  or  “Return  to  the  Main  Admin  Page”. 

g.  Invite  Articles 

Articles  invited  by  the  Session  Chairs  are  not  subject  to  the  normal  review 
and  selection  process.  Modifying  the  SubmissLdb  table  to  reflect  this  status  is  done  via 
this  function.  Session  Chairs  will  provide  the  system  administrator  with  a  list  of  invited 
article  titles.  The  required  programs  are: 

1)  Display  Titles  (Invite.exe) 

2)  Invite  Titles  (Invite2.exe). 

(1)  Display  Titles  (Invite.exe).  This  program  displays  a  form  with  a  list 
of  all  the  article  titles  in  the  Submissi.db  table  with  a  check  box  (Fig.  4-39).  A  drop- 
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down  option  box  allows  the  administrator  to  either  “Invite”  or  “NOT  Invite”  the  selected 
titles. 

To  mark  articles  invited,  “Invited”  is  selected  on  the  drop-down  box  and  the 
title(s)  which  are  invited  are  checked.  Submitting  this  form  calls  Invite2.exe.  It  is  not 
necessary  to  mark  articles  as  “NOT  Invited”  imless  they  were  previously  marked 
“Invited”  and  need  to  be  changed. 

(2)  Invite  Titles(Invite2.exe).  Called  by  Invite.exe,  Invite2.exe  modifies 
the  “Invited”  field  on  selected  articles  in  the  Submissi.db  table.  It  first  takes  the  passed 
query  string  and  parses  it  to  determine  the  action  (Invite  or  NOT  Invite)  and  the  article 
numbers  to  be  changed.  Then,  each  article  is  located  and  changed.  A  confirmation  page 
is  sent  with  the  option  to  “Invite  more  Articles”. 

h.  Accept  / Reject  Articles 

After  the  review  process  is  complete,  articles  must  be  annotated  as  either 
“accepted”  or  “rejected.”  This  segment  allows  the  system  administrator  to  quickly  mark 
the  SubmissLdb  table  appropriately.  Changes  may  be  made  to  one  article,  to  several 
articles,  or  to  all  of  the  articles. 

1)  Select  Articles  (Choose.exe) 

2)  Accept  /  Reject  Articles  (Choose2.exe) 
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(1)  Select  Articles  (Choose.exe).  This  program  displays  a  form  with  a  list 
of  all  the  article  titles  in  the  SubmissLdb  table  with  a  check  box  (Fig.  4-40).  A  drop¬ 
down  option  box  allows  the  administrator  to  either  “accept  ”  “accept  then  reject  ” 
“reject,”  or  “reject  then  accept”  the  selected  titles. 

The  multiple  choices  provided  will  simplify  this  process  because  the 
Administrator  will  not  have  to  specifically  mark  every  article.  When  a  list  exists  with 
more  rejections  than  acceptances,  checking  off  accepted  articles  and  the  “accept  then 
reject”  option  will  set  the  selected  titles  as  accepted  and  automatically  set  the  rest  as 
rejected.  If  there  are  fewer  rejected  articles  than  accepted,  then  the  rejected  article  titles 
are  selected  and  “reject  then  accept”  will  reject  those  and  accept  the  rest. 

To  mark  articles  individually,  either  the  “accept”  or  “reject”  option  is 
selected  on  the  drop-down  box  and  the  title(s)  checked  off  are  modified  as  appropriate. 
“Accept”  or  “reject”  will  only  modify  the  selected  articles  and  will  not  affect  other 
articles.  Submitting  this  form  calls  Choose2.exe. 

(2)  Accept  /  Reject  Articles(Choose2.exe).  The  query  string  is  retrieved 
and  parsed  to  obtain  the  action  and  the  titles.  A  case  statement  uses  the  action  passed  to 
modify  the  necessary  article  fields  in  the  SUBMISSION  Table.  Titles  are  placed  on  a 
string  list  and  individually  processes.  When  the  action  is  to  “accept  then  reject”  or 
“reject  then  accept,”  then  all  articles  are  set  to  the  second  action  and  then  the  string  list  is 
processed  to  change  the  selected  articles. 
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L  Assign  Articles  to  Sessions 

Once  articles  are  accepted,  they  must  be  assigned  to  a  session  and  ordered 
within  a  session.  The  following  programs  assign  articles  and  order  them  within  a 
session. 

1)  Assign  Articles  to  Session  (Assign.exe) 

2)  Order  Articles  in  Session  (Assign2.exe) 

3)  Confirmation  (Assign3.exe) 

(1)  Assign  Articles  (Assigmexe).  This  program  displays  a  form  with  a 
list  of  all  the  article  titles  in  the  Submissi.db  table  with  a  check  box  (Fig.  4-41).  A  drop¬ 
down  option  box  allows  the  administrator  to  select  the  session  name.  The  session  is 
selected  and  then  each  of  the  titles  which  belong  in  that  session  are  checked.  Submitting 
the  form  calls  Assign2.exe. 

(2)  Order  Articles  (Assign2.exe).  The  query  string  is  retrieved  and  parsed 
to  obtain  the  session  record  number  and  the  list  of  titles.  Article  titles  assigned  to  the 
selected  session  are  displayed  next  to  a  form  box  which  is  used  to  assign  an  order  to  each 
article.  Each  box  has  a  default  number  inserted  when  it  is  displayed.  Once  the  numbers 
are  changed  to  reflect  the  proper  order  of  presentation,  this  form  is  submitted  to 
Assign3.exe. 
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(3)  Confinnation  (Assign3.exe).  This  program  retrieves  the  query  string 
and  parses  it  to  obtain  the  session  number  and  a  list  of  titles  and  a  list  of  title  orders.  The 
string  list  of  titles  and  the  string  of  title  orders  are  matched  so  that  the  first  title  goes  with 
the  first  order.  Title  record  numbers  are  used  to  locate  a  title’s  record.  The  session  and 
order  are  then  recorded.  An  HTML  confirmation  page  is  sent  which  lists  the  titles  and 
their  order. 


j.  Assign  Presentation  Times  to  Articles 

P*rior  to  printing  the  Abstract  Catalog,  presentation  times  must  be  included 
in  the  article  information.  Three  programs  are  used  to  assign  presentation  times  to  each 
article. 

1)  Choose  Session  (Tinies.exe), 

2)  Assign  Presentation  Times  (Times2.exe), 

3)  Confirmation  (Times3.exe). 

(1)  Choose  Session  (Times.exe).  An  HTML  table  of  all  the  current 
sessions  is  displayed  (Fig.  4-42).  Each  session  identifier  is  a  hypertext  link  to 
Times2.exe  with  the  session  record  number. 

(2)  Assign  Times  (Times2.exe).  Each  article  title  assigned  to  the 
requested  session  is  retrieved  and  presented  with  its  order  number  and  an  HTML  form 
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box  to  enter  the  presentation  time  (Fig.  4-43).  After  the  times  are  entered,  the  form  is 
submitted  to  Times3.exe. 

(3)  Confirmation  (Times3.exe).  The  query  string  is  retrieved  and  parsed 
to  obtain  a  string  list  of  titles  and  times.  The  list  is  processed  such  that  the  title  number 
is  used  to  locate  the  record  and  then  the  time  is  placed  in  the  database.  An  HTML 
confirmation  page  is  sent  which  again  displays  the  titles  with  their  order  and  time. 

A.  Modify  Passwords 

System  administrator  and  reviewer  identities  and  passwords  are 
maintained  with  this  segment.  System  administrators  and  reviewers  are  referred  to  as 
“users.”  Users  can  be  modified,  added,  and  deleted.  Note  that  only  system 
administrators  have  access  to  the  Administration  sub-system.  Reviewers  will  only  have 
access  to  the  Review  sub-system. 

1)  Selection  options  (PassWds.exe), 

2)  Modify  Password  (PwdMod.exe), 

3)  Add  new  user  (PwdAdd.exe), 

4)  Addition  confirmation  (PwdAdd2.exe), 

5)  Delete  a  user  (PwdDeLexe), 

6)  Deletion  confirmation  (PwdDel2.exe). 
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(1)  Selection  options  (PassWds.exe).  This  program  sends  an  HTML 
instruction/option  page  which  is  divided  into  sections  for  System  Administrators  and 
Reviewers  (Fig.  4-44).  A  form  is  displayed  which  allows  system  administrators  to 
modify  passwords.  New  passwords  must  be  entered  twice  for  verification.  Submitting 
this  form  calls  PwdMod.exe.  Additional  options  are  to  add  (PwdAdd.exe)  and  delete 
(PwdDeLexe)  users. 

(2)  Modify  Password  (PwdMod.exe).  This  program  retrieves  the  form 
data,  including  an  identifier  for  whether  the  ID  is  for  a  system  administrator  or  a 
reviewer.  It  then  retrieves  the  old  password  from  the  password  table  (Admin.db)  and 
authenticates  the  request.  If  the  old  password  is  valid,  and  the  two  new  passwords 
match,  then  the  old  password  is  replaced  with  the  new.  An  HTML  confirmation  page  is 
sent  with  the  option  to  “Modify  more  Passwords”. 

(3)  Add  new  user  (PwdAdd.exe).  This  program  creates  an  HTML  page 
with  a  form  to  enter  a  new  system  administrator  or  reviewer  ID  and  password  (Fig.  4-45). 
The  password  must  be  entered  twice  to  be  valid.  Submitting  the  form  calls 

PwdAdd2.exe. 


(4)  Addition  confirmation  (PwdAdd2.exe).  Creates  an  HTML  page 
which  confirms  the  new  ID  and  offers  the  option  to  “Modify  more  Passwords”. 
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(5)  Delete  a  user/reviewer  (PwdDeLexe).  An  HTML  page  is  created  with 
a  form  for  entering  the  system  administrator  or  reviewer  ID  and  password  to  be  deleted 
(Fig.  4-46).  Submitting  the  form  calls  PwdDel2.exe. 

(6)  Deletion  confirmation  (PwdDel2.exe).  This  program  creates  an 
HTML  page  which  confirms  the  deletion  and  offers  the  option  to  “Modify  more 
Passwords”. 


L  Print  out  a  Session  list 

This  single  program  (P_Sess.exe)  displays  a  list  of  the  current  sessions  on 
the  screen  (Fig.4-47).  The  display  is  suitable  for  viewing  or  printing  out  using  the  Web 
browser’s  print  screen  function. 

m.  Print  out  Article  data 

This  function  prints  out  information  about  an  article.  It  is  intended  for  use 
with  the  current  review  process.  This  information  will  be  printed,  along  vdth  the 
Extended  Summary,  and  given  to  the  reviewer.  Options  allow  information  about  a  single 
article  to  be  displayed  on  the  screen  or  printed  to  a  file. 

1 )  Select  Article  or  All  (P_ArtI.exe), 

2)  Print  Article  to  screen  (P_Artl2.exe), 
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3)  Print  Articles  to  a  file  (P_Artfil.exe). 


(1)  Select  Article  or  All  (P_Artl.exe).  An  HTML  table  is  displayed 
which  contains  every  article  title  in  the  Subiiiissi.db  table  as  a  hypertext  link  to 
P_ArtI2.exe  (Fig.  4-48).  There  is  also  a  hypertext  link  which  provides  the  option  to  print 
article  information  for  every  article  to  a  file. 

(2)  Print  Article  (P_Artl2.exe).  This  program  first  looks  for  an  article 
record  number  which  would  be  passed  if  the  user  selected  an  article  title  hypertext  link. 

If  no  record  number  is  passed,  then  the  user  selected  the  “Print  to  a  file”  hypertext  link 
In  this  case,  an  HTML  page  is  created  by  P_Artl2.exe  which  allows  the  user  to  enter  a 
name  for  file  in  which  all  article  information  will  be  stored.  Submitting  that  form  calls 
P_Artfil.exe.  IfP_ARTL2.exe  is  passed  an  article  record  number,  then  the  record  is 
located  and  retrieved.  Information  is  then  displayed  in  HTML  format  suitable  for 
printing  with  the  Web  browser’s  print  screen  function  (Fig.  4-49). 

(3)  Print  Articles  to  file  (P_Artfil.exe).  This  program  retrieves  all 
articles  from  the  SubmissLdb  table.  The  necessary  information  is  then  printed  to  a  file 
with  the  user  given  name.  The  file  is  always  given  an  extension  of  .art  and  is  placed  in 
the  C:\My  Files\Thesis  directory  available  for  FTP  download  by  the  system  administrator. 

n.  Print  out  Accept  /Reject  letter 
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After  review,  articles  are  marked  as  either  accepted  or  rejected.  This 
ftmction  generates  the  accept/reject  letters  to  be  mailed  to  submittors.  Letters  can  be 
generated  for  all  the  articles  at  once  (to  a  file  only),  or  for  individual  letters  (to  the  screen 
or  to  a  file). 

1)  Instructions  and  options  (P_Acceptexe), 

2)  Print  all  to  a  file  (P_AccAlI.exe), 

3)  Select  Article  (P_Accep2.exe), 

4)  Choose  screen  or  file  (P_Accep3.exe), 

5)  Print  to  screen  (P_AccScr.exe), 

6)  Print  to  file  (P_AccFil.exe). 

(1)  Instructions  /  Options  (P_Accept.exe).  An  HTML  page  is  created 
which  describes  the  three  options  available  and  provides  links  to  each  (Fig.  4-50). 

(2)  Print  all  to  a  file  (P_AccAlI.exe).  This  program  generates  an  accept 
or  reject  letter,  as  designated  by  the  “accept”  field  in  the  SubmissLdb  table,  for  every 
article  in  the  database.  The  user  has  the  opportunity  to  provide  a  name  for  the  output  file. 
The  file  is  always  given  an  extension  of  .let  and  is  placed  in  the  C;\Website\Download\ 
directory  for  FTP  download  by  the  system  administrator. 

(3)  Select  Article  (P_Accep2.exe).  This  program  is  called  when  the  user 
wishes  to  print  a  single  letter.  An  HTML  table  is  generated  with  every  title  as  a  hypertext 
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link  to  P_Accep3.exe. 


(4)  Choose  screen  or  file  (P_Accep3.exe).  The  option  is  given  to  print  a 
letter  to  either  the  screen  or  to  a  file.  The  article  record  number  is  passed  to  the 
appropriate  program  (P_AccScr.exe  or  P_AccFiLexe) 

(5)  Print  to  screen  (P_AccScr.exe).  The  letter  is  generated  to  the  screen 
in  an  HTML  page.  The  page  is  suitable  for  printing  by  the  user’s  Web  browser. 

(6)  Print  to  file  (P_AccFiLexe).  The  letter  is  generated  to  a  file  which  the 
user  names.  The  file  is  always  given  an  extension  of  .let  and  is  placed  in  the 
C;\Website\Download\  directory  for  FTP  download  by  the  user. 

o.  Print  Abstract  Catalog 

This  function  organizes  the  articles,  in  order  by  session,  and  prints  them  in 
the  Abstract  Catalog  format  to  a  file. 

1)  Print  Initiation  (P_AbsCatexe), 

2)  Print  Confirmation  (Prabsca3.exe). 

(1)  Print  Initiation  (P_AbsCat.exe).  Utilizing  the  Sessions.db, 
Submissions.db,  and  Autbor.db  tables,  this  function  sorts  the  articles  by  session  and 
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prints  the  appropriate  data  to  a  file  in  the  format  of  the  Abstract  Catalog.  The  user  has 
the  opportunity  to  provide  a  name  for  the  output  file  (Fig.  4-51).  The  file  is  always  given 
an  extension  of  .cat  and  is  placed  in  the  C:\Website\Download\  directory  for  FTP 
download  by  the  user. 

(2)  Print  Confirmation  (Prabsca3.exe).  Confirming  the  successful 
completion  of  the  print  job,  the  name  of  the  file  is  again  displayed  and  a  link  is  provided 
which  automatically  downloads  the  file  to  the  system  administrator’s  host. 

4.  Applications 

ITiree  applications  are  required  to  operate  the  WWW  Conference  Information 
System,  O’Reilly  &  Associates’  WEBSITE  web  server,  FTPD  FTP  Server,  and  Borland’s 
PARADOX  Relational  Database.  Following  is  a  brief  discussion  of  the  specific 
implementations  of  these  programs. 

a.  O’Rettfy  &  Associates*  WEBSITE  Web  Server 

The  WEBSITE  [Ref  6]  software  is  responsible  for  maintaining  the 
connection  between  the  PC  hwdware  and  the  Internet  The  PC  has  been  assigned  a  static 
IP  address  (131.120.20.70)  and  maintains  a  continuous  Internet  coimection  via  the  ECE 
department’s  local  area  network.  When  an  Internet  user  accesses  the  PC’s  address. 
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WEBSITE  automatically  displays  Index.html  in  the  C;\Website\Htdocs  directoiy. 
WEBSITE  then  displays  other  HTML  pages  or  executes  Delphi  programs  as 
implemented  within  the  system. 

All  HTML  pages  (other  than  lndex.html)  are  stored  in  the 
C;\Website\Htdocs\Prototype  directory.  All  Delphi  executables  are  stored  in  the 
C:\Website\cgi-win  directory  as  required  by  WEBSITE.  The  programming  code  for  each 
executable  is  stored  in  the  C:\Delphi\Bin  directory.  The  queries  conducted  throughout 
the  system  are  initiated  by  WEBSITE  passing  standard  query  language  (SQL)  to 
Borland’s  Paradox  which  maintains  the  system  database  and  is  discussed  in  part  c. 

WEBSITE  is  also  responsible  for  limiting  a  user’s  access.  By  default, 
WEBSITE  limits  a  user’s  access  to  no  lower  than  the  C:\Website\Htdocs  directory.  This 
protects  the  root  directory  from  unauthorized  access.  WEBSITE  also  handles  FTP 
downloads  for  users.  Any  file  that  has  the  extension  “.exe”  or  “.html”  and  resides  in  a 
sub-directory  of  C:\Website\Htdocs  can  be  downloaded  by  any  Internet  user.  This  is  an 
important  consideration  when  placing  files  on  the  hard  drive.  File  uploads  (i.e.  loading 
files  to  the  PC)  are  handled  strictly  by  the  FTPD  FTP  server  discussed  in  the  next  section. 

b.  FTPD  FTP  Server 

The  FTPD  FTP  Server  is  shareware  which  handles  file  uploads  to  the 
system  [Ref  7].  It  was  installed  to  allow  users  to  upload  Extended  Summaries  which 
contain  graphics  and  equations  not  suitable  for  ASCII  text  that  HTML  forms  are  limited 
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to.  Allowing  uploads  can  be  risky  because  anything  can  be  uploaded.  System 
administrators  are  warned  not  to  execute  any  executable  (.exe)  programs  found  in  the 
upload  directory.  Any  such  program  found  should  be  deleted  immediately.  The  only 
legitimate  uploads  are  post  script  (.ps)  Extended  Summaries. 

Security  of  uploaded  files  is  maintained  by  limiting  users  to  one  directory 
and  disabling  the  ability  to  list  directory  contents.  Thus  a  user  may  upload  his/her  own 
file,  but  will  not  be  able  to  determine  the  contents  of  the  upload  directory.  FTPD  has  not 
been  registered.  All  attempts  to  contact  the  company  have  failed.  Thus,  no  technical 
support  is  available.  This  is  an  area  for  future  improvement.  More  powerful  and  flexible 
FTP  servers  are  commercially  available. 

c.  Borland’s  PARADOX  Relational  Database 

Implementation  of  the  PARADOX  database  for  this  system  mirrored  the 
one  in  use  by  conference  administrators.  Seven  tables  were  constructed  to  maintain  data 
on  the  Contact  Authors,  Submissions,  Sessions,  Keywords,  and  system  passwords.  The 
tables  were  initially  designed  using  SALSA  [Ref  10],  an  object-oriented  database  design 
tool.  SALSA  generated  reports  and  a  brief  description  of  the  SALSA  program  are 
included  in  Appendix  C. 

A  relational  database  stores  not  only  data,  but  also  maintains  relationships 
between  different  tables.  As  mentioned  above,  the  database  we  implemented  contains 
seven  separate  tables. 
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1)  Authondb  contains  personal  information  on  each  contact  author. 

2)  SubmissLdb  contains  information  about  an  author’s  paper. 

3)  TempAuth.db  temporarily  stores  changes  to  an  author’s  personal 
information  until  it  is  verified  by  conference  personnel. 

4)  Session.db  stores  session  mnemonics  that  indicate  when  a  particular 
session  will  occur. 

5)  Keyword.db  maintains  a  list  of  keywords  authors  may  use  to  classify  their 
papers. 

6)  Admin.db  stores  user  CD’s  and  passwords  for  system  administrators. 

7)  Review.db  stores  user  HD’s  and  passwords  for  article  reviewers. 

By  using  separate  tables  to  store  this  information,  an  author  can  submit  more  than 
one  paper  without  causing  problems  for  the  database.  Each  contact  author  is  given  a 
unique  identifier  that  relates  him/her  to  each  of  his/her  submissions.  Similarly,  an 
author’s  submissions  are  related  to  keywords,  and  a  session  number.  Thus  queries  can 
be  performed  on  either  an  author  or  on  a  submission  and  all  information  from  any  table 
can  be  retrieved.  The  names  and  contents  of  each  database  table  is  listed  in  Appendix  C. 

5.  System  Web  Pages 

The  following  pages  are  screen  captures  of  the  web  pages  created  by  the  Asilomar 
Conference  System.  The  pages  were  viewed  with  Netscape  Navigator  Gold  3.0  [Ref  8] 
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and  captured  with  Corel  Draw  Capture. 
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Figure  4-4.  Introl0.htm. 
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Asilomar  Conference  on 
Signals,  Systems,  &  Computers 

dectronic  Submission  Information 

Authors  wishing  to  submit  an  article  to  the  Asilomar  Conference  on  Signals,  Systems,  &  Con^uters  via 
on-line  submission  not  only  save  “flic  cost  of  an  envelope  and  a  stajr^,  tKcy  help  us  keep  down  the  cost  of  the 
conference  by  reduemg  the  administrative  burden  on  our  stafiE 

ViTiat  catiabilitigs  do  I  need  to  submit  mv  Article  on-line? 

What  are  the  procedures  to  submit  mv  Article  on-line? 

I  am  ready  to  subjuit  my  articie  on-line! 


What  capabilities  do  I  need  to  submit  my  Article  on-line? 

Authors  wishing  to  submit  an  article  on-line  need  the  following  capabilities: 

1.  Internet  access; 

2.  Forms  c stable  "Web  Browser  (HXML  3  or  better); 

3.  FTP  upload,  software 
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1.  Enstjre  you  have  FTP  software,  download  it  above  if  necessary. 

2.  Select  "Submit  2in  article"  at  the  bottom  of  this  page.  The  forms  presented  will  allow  you  to: 

□  Ensure  that  the  information  about  you  is  accurate  in  our  database;  and 

□  Submit  the  information  about  your  paper  C^de,  Ke3;words,  Abstract,  and  other  Authors). 

N'atecifyau  have  already  recevyped  a  regss£ras£ion  nztmberp  user  ID  and passy^ord,  the  above 
steps  should  be  complete. 

3.  Finally,  submit  an  Eiztended  Summary  for  your  paper  via  FTP. 

n  Extended  summaries  must  be  in  Post  Script  CPS)  or  ASCII  CtKt)  format 
O  The  filename  of  your  summary  should  be  your  registration  ntimbcr;  e.g.  "101. PS"  woxold  be  a 
valid  filename. 
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Figure  4-5.  Infol2.htm. 
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500  to  1000  words  and  can  include  figures.  The  extended  summary  will  be  used  to  evaluate  the  paper  for 
significance  and  originality. 


For  electronic  submission,  the  extended  summary  should  be  saved  in  Postscript  Format  and  should  include 
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Figure  4-6.  Extsumm.htm. 
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Atrtfaors  wishing  to  submit  an  article  to  the  Asilomar  Conference  on  Signals.  Sjrstems.  &  Computers  via  mail 
must  submit  four  copies  of  the  abstract  (50  to  100  words)  and  four  copies  of  the  extended  summary  (500  to 
1000  words  plus  figures  and  tzkAcs).  Subanissions  must  include: 

•  Paper  Information:  title,  each  author's  name  and  affiliation,  and  the  technical  areals)  with  nuniber(s) 
from  the  list  provided  on  the  "Cali  for  Paners.*' 

•  Point  of  Contact  anformation:  name,  fiiU  address,  telephotLc/fax  numbers  and  e-mail  address. 
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of  an  envelope  and  a  stan^.  it  hd^s  us  keep  the  cost  of  the  conference  lower  by  reducing  the  administrative 
bwden  on  our  staff 
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Add  New  Author  Information 

Yoxar  name  was  net  fewnd  in  eur  ewrent  database.  Please  provide  the  following  iofonnaiion  eo  we  will  be  able 
to  contact  you. 


First  Name:  Kicliael 


X>ast  Name:  jChalfant 
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Ihstitiitioii:  j 
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Mail  Stop:  Y‘‘~ 
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F-mail:  j  ~  |  ~ 

.  SubrnkNe^iiiid)^ 


Clear  this  fortn 


Figure  4-9.  D13.exe:  No  Author  Found  in  Database. 
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Edit  Author  Information 

We  have  located  your  record  in  the  database.  Please  ensure  that  your  record  is  i^-to~date  by  reviewing  the 
infomiatioti  below  and  making  any  changes  that  are  necessary.  For  your  protection,  changes  are  not  made  a 
part  of  the  permanent  record  until  veiihed  by  our  staflf. 
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refers  to  another  person,  then  you  have  two  choices; 

•  If  you  migju  have  use  d  another  name ,  fiaen  Go  back  and  re-submit  vow  query;  or 

•  IF this  is  your  name  but  this  is  not  your  record,  then  Add  vour  name  to  our  records. 

IF this  entry  docs  refer  to  3rou,  please  review  the  information,  and  update  it  as  necessary,  then  dick  on  "Submit 
Information"  below 


Sc^fwt  Infbhlnio^ort 


Figure  4-10.  D13.exe:  One  Author  Found. 
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Add  New  Author  Information 

Your  name  was  not  fotiad  in  o^xc  cnrrpnt  database.  Please  provide  tiae  following  uifdrxnation  so  we  will  be  able 
to  contact  yoa 


Ifirst  Name: 
Initial:  |[~J 

Hononfie  TM8;| 

JnstAtuiAxm:  |  ^ 
l^epartmenf:  j*^ 
Mad  Stop; 


'■  Last  Name: 


Middle 


Street  addbress: 


7Sp  Code;  J 


Coimtry:  |usA 


Telephoiie  mimber  (frith  Areai^CoOTtty  codes); 
Fax  mnnber  (fwdi  AnBa/Coimtry  codes):  | 
E-mail!  | 


SM^it  I  rrtof rriiption 


Capbrt^y;:^^.> 


fr  MRS 


Figure  4-11.  D13.exe;  Submitting  Author’s  Name  Matches  Another  in  the  Database. 
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’  './Netscape  -  (AsilaiTLaijr  Signals,  Systems, and  Computers] 


'Tfbt  Edit'  09  locildMria  jWmrfcoi^ 


Honift' '  j  ■ . '  4ft  I  ' 


^  ■  a  .  ■# 

Dp«n ; -, 


t^ijwi  wij|]|p!!ffra  ilH 

iftS 


Asilomar  Conference  on 
Signals,  Systems,  &  Computers 


Multiple  Matches  Found 


pNimiberipLast  Name  JFIrst  Name  |MI  iTitle 

Institntiott  Name  Department  Name 

362  jFareues 

,  i 

IMpnique 

i  ■; 

P  pr. 

■\  ; 

pept.  of  Electrical  &  Con^uter 
Naval  Post£raduate  Schooliing. 

1  j 

■i 

1  pept.  of  Electrical  &  C  ong>uter 

1  709iFargues 

Monique 

jp  ^pr.  ; 

Naval  Postgraduate  School  jEng. 

f  1 

The  database  has  found  more  liian  one  entry  that  matches  your  &st  and  last  name.  If  your  name  is  on  the  list 
then  dick  on  the  “Author  Nutnber*  which  is  to  the  ri^  of  your  name. 

]f  you  believe  your  record  may  be  under  another  name,  you  may  Resubmit  vour  name. 

If  ttas  is  your  name  but  your  record  docs  not  appear  here,  you  nay  Add  vour  name  to  ottr  records. 


Return  to  the  Asilomar  Conference  On-line  Submission  Pas 


Jt/iStI,  ■bocumeri-Donie .  . . .  • . 
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r  Neist:Aj>t  ~  [Asilonw-i  Signals,  Syslejus.,  and Ccmputcis] 


Fife  SdSifc  '^SfsuNT  'go  Boofaoiiirfci  Qpfaxiim 


^  ^  'flatm*  : 

/  fe  '  ] 

1 

a 

Fri»| 

1'  .-..t-v 

C"?7"A'Lr7.'’r*. 

V 


. .  . . .  ..  .....  .. 

WvjlfM^ieei  I 1  -HetSeati^ SoHyiaw) 


Asilomar  Conference  on 
Signals^  Systems,  &  Computers 


Hiank  you  for  your  intpirt  Dr.  Monique  Fargues.  Your  irformatioii  has  been  stored  in  order  to  update  our 
records.  To  protect  your  record,  changes  vpilt  not  become  pcnnanent  until  verified  by  our  staff 

1h©  .Submieislqn  Ptewese  1 


itetum  to  ihe  Asilomar  Coriejence  Qn-lme  Submission  Page 


Figure  4-13.  Information  Page  Generated  by  Addl32.exe  or  Editl32.exe. 
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-Netscape  |  Asiloznuix  Systems, and,  Coinp\itersJ 


HISO 


/<>»  4  (  ifet*  j  ^  \  "f  I  ^  I  &  '  I  (jP6  I 

irarte  j  -  -  [  ^  1  ^  j  I  -  ly  [ 

=  §^jj^-/^tj0ieailatif:}h^/V131~i;^(3L2Q,7^  ^  ~  n--T  -— r  -  — : . - 

Wh4i^N»»rf  I  What*a  OddH  I4<widbook  }  Nwt  Svmih  |  l>i<feOwdtoy  |  ^  Siaftwia#  } 


Asilomar  Conference  on 
Signals,  Systems,  &  Computers 


New  Article  Submission 

Please  provide  the  foILovviag  iofonnaiioa  about  the  article. 

Title;  _ 

Ixbes  19  '  example  ^  . . . "  ^  . —  . 

Keyword  #1:  [image  A  Mufti  dime  nslonai  signal  ^  y  j 

Keyword  #2:  jspegch  &  Communioa^  ;y^.j 

Keyword  | Highartjfder  Statistics 

Abstract: 


jpieeiefc  eaficeir  your  atoatract  nere  toy  eit-toer 
icyping  oi:  copying  over  dais  eext: . 

iRemerntoer  to  liwit  the  leiagth  of  your  obstreict  to  lOO  words. 
iHTKL  will  allov  you  to  enter  more  tHan  thn.t  in  tlais  toox^ 

IBOT  only  tHe  first.  lOO  xrorrds  trill  toe  retained, 

ilf  typing  your  neKt,  you  way  want  to  use  carriage  returiis  to  keep 
ittoe  text  wittoln  ttoe  vietritoja  area  of  this  toox.  If  cutting  and.  pasting, 
the  dLisplay  in  this  box  does  not  anatter . 

il _ . ,r _ '..  v  . '  .  ■  ••  -  _ n^- 


j=3 


Figure  4-14.  D_Submit.exePart  1. 
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'  Netscape  -  |  Asilonta x.  Systeiws,  AJid  Coixipaters] 


^  Itititt:  3Ctey  <t*>  ®5b^t»*y_3Q5*w^ 


Other  Author  Information 

If  there  are  muh^le  authors  for  this  article^  please  enter  the  following  mformatiori.  lathe  bo«aDes  marlce>d  "Name  Position'* 
please  enter  the  position,  in  which  you  wish  each  author's  name  to  appear  when  the  abstract  is  pnnte<l. 

Position  of  the  Contact  Author's  TTame: 


Other  Authors 


Name  Fosidoii:  Ml  Erst  Kame: 


LastlN’ame; 
Xnstitiition:  f 


Name  Positioii:  13  PirstlName: 
r.a$trTame:  |  ” 

Institotion:  1  . 


Name  Position: 
Last  Name:  { 
lhstit«xtion:  f  " 


Erst  Name: 


Name  Position:  j5  Erst  Name: 
Last  Name:  j 
Lnstitiition:  j 


Name  PositiGn:  j  B  ^  Erst  Name: 

Last  Name:  j .  . .  ^  ^ 

Institution:  j . 


Mddle  Initial:  f- 


Middle  Initial:  p 


Middle  Initial:  P 


Middle  Initial:  p 


Middle  Initial:  P 


'Submit  f^ertrrforrrri^on 


Rjctum  to  the  Asilomar  ConFerence  Home  P 


'l06ci«mef»t\Dorrt» 


Figure  4-15.  D_Submit.exe  Part  2. 
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Figure  4-16.  Dpaper.exe  Part  1. 
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TCtiscapc  ~  (Asilortiar  Sy;5tei«?r«ind  Computejtt:] 


>5dBt  syntax  ^«i 


il@Ojl 


" ;  4;lonM*  -  v-'fidit  < 


%“  ii r'.s  ■'■■M- 

'■'  '■?r"-.'r  ,5^-irrt-  :  '.f-irvo. 


Wtp://!^  .1 20.20. 70/cjji-win/d_paper.©«e 


,,$oRi*jrtr«  I 


Other  Author  Information 


IT  there  arc  multiple  authors  for  this  article^  please  ctrtcr  the  following  informartioii.  It  is  assumed  that  you  arc 
the  *  Contact  Axitohor”  for  this  paper.  In  the  boxes  marked  'TSTame  Position"  please  enter  the  position  in  which 
you  wish  each  authors  name  to  appear  when  the  abstracts  are  printed. 

Positiim of  YOURName: 


Name  Position:  Eirst  Name: 


Last  Name:  ^ 
l^titation:  f 


Name  Positioti:  Eirst  Name: 


Last  Name: 
IiLStitution:  f 


Name  Position:  [~:  Ekst  Name: 


Last  Name: 
Institixtion:  f 


Name  Ppsition:  |  •  Eirst  Name: 

Last  Name;  | 
liLsIzttitian;  | 

Name  PositiDn:  f~v  First  Name: 
Last  Name:  |  ^ 

Insdnition:  1 


MiddDe  Initial 


^fiddle  Xnititd; 


Middle  Inhial: 


Middle  Initial 


Middle  Initial: 


PLetum  to  the  Asilomar  Conference  On-line  Submission  P 


Figure  4-17.  Dpaper.exe  Part  2. 
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^  Loc^l^bfie  j  hUp;  //1 311 20.20.70/cgi. wtnVd2paper.exe  ^ 

NevM  I  \vlTiars  ^  Htendbook  |  Kel  Search  |  Ne^  D»<><itoy  1  Software  j 


Asilomar  Conference  on 
Signals,  Systems,  &  Computers 


Confirm  New  Article  Submission 

Thank  you  Ehr.  Monique  Faroes. 

Your  article  information  has  been  a-dded  to  the  conference  records.  Your  Registration  Number  is:  335 
sure  that  you  \9rite  this  ?fuwher  ^iowfn  or  print  out  a  copy  of  this  page.  You  will  need  this  number  when 
you  send  in  your  extended  summary. 

The  fflename  for  your  esotended  simumaiy  will  be  the  registraitioii  number! 

For  example,  if  your  Registration  Number  is  1 5.  die  file  which  contains  your  summary  should  be  named  15.ps 
if  it's  a  postscript  file,  or  15,txt  if  it's  an  ASCII  file. 

You  must  now  FTP  your  extended  summary.  You  may  use  your  own  FTP  software  or  die  program  you 
down-loaded  from  the  Procedures  Page.  Be  sure  you  include  die  Title  of  the  Article  and  the  Author  names  in 
the  text  of  the  summaay. 

Log  on  to  our  FTP  Server  using  the  following  information: 
server  address:  131.120.20.70 
userlD;  guest 
password:  asilconf 


Thank  you  for  using  our  online  submission  process.  We  hope  that  you  found  it  helpful.  Please  send  any 
comments  to  mikec@nps.navy.mil 


Return  to  the  Asilomai-  Confe±-ence  Qn-lne  Subrntssiofi  Pajsc 


Figure  4-18.  D2paper.exe. 


ik  6ci  View  go  .^bom  Etectofy 

O  I  .  i  ^  I  ^1  j  .  1^1 


.  ■ 

M'. 

Edit 

'  'Relo«d' 

•  '  ■  -.  .OliW  ■  ■ 

Pri^t 

Find 

iiOC4stior:  |http:^/1 31 . 1 20L20.70ypfoto4^pe/admin20.ltm 
What'sNew?  )  Vfllat'iDDdl?  i  pesSrii^  j  'Softiwie 


Asilomar  Conference  on 
Signals,  Systems,  &  Computers 


System  Administration 


This  page  is  intended  for  die  exclusive  use  of  the  System  Administrator  for  the  Asilomar  Conference  on  Signals,  Systems, 
&  Computers. 


User  name;  |  Password:  | 

SubnnH  Password  I  CleerValues 


Return  to  the  Asilomar  Conference  On-line  Submission  Page 


'bocumont  Dorw 


Figure  4-19.  Admin20.htm. 
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Asilomar  Conference  System  Administration 


Database  Functions 


Print  Functions 


■  .bocum^’bone 


Figure  4-20.  Aminpwdexe. 
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and  Computers] 


5ie  g<M :  Y»w  .  igo ;  fiookn»ri;«  ‘ jQptiom  Oiectoiy  ;  ^hdow  tte^ 


1^  ^  ^ 

'Monv^..::’;  ;■':  .■.  E^'  •  ■  .V.  'fte-Totd  • 


^  a  ^ 

Opfm  Prtet  .Eind 


boc-atJorv:  jhttpc  i^/131 .1 20.20.70/c^^fvin/AuChongs.exB 
,Wh«t‘8N*w?  }  What'll  Coof? 'I  |  People  j  Softvwe 


Asilomar  Conference  System  Administration 


There  are  1  records  to  review. 

Nm^er  N^e  Lisdtatioii  Department  iHome  City 

-P)  t  fFl  rri  1  ' 

147  709  Fargues  Monique  iP  -Dr.  Postgraduate  uterE^  Monterey 

iSchool 


Return  to  the  System  Admire  Options  page 


DocuBmwit  Done 


Figure  4-21.  Auchangs.exe. 
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N  else -ape  lAsilornoi  'Jigmais.  jystems.  and  Cornpuiicisj 


file.  y»w  Jgo  gooknwwfes  flptronfr 


•::  .>;Heii»,  .'  MH: 


:  frlot  .  rtrM5  •■ 


^vtei«id(rr:|^  31 . 1 20.20. 70/cgwnViewClwa  8jee?1 47 

WHa*'4  Now?  I  WhaiTt  Oool?  j  '  DoslJMtidn*  1  '>  Ne»  SeOrch  j  Petjpjfr  .  j  Software,  J 


Compare  Author  Information 


Here  is  the  ol<3  record  aloi^  wilda  -die  sidymitted  charges. 

OLD  Krst  Name:  iMarijque  .  / . ..^..1 

I^W  First  Name:  jMoniqi^  . . . ^  .  J 

OLD  Last  Name:  Jporgues  '^  ^  '  _  __  _ . . . .  ' 

NEW  Last  Name:  jpargues  _ 

OLD  Middle  Imiial:  1^ 

NEW  Middle  Initial: 

OLD  Honorific  Xitle:  jl^ 

NEW  Honorific  Title:lDr 


OLD  Institution:  |Notvol  Fastgraduate  School 
NEW  Ihstitntion:  fN^aJ  Postgrnd u ale  Sch ool 

OLD  Department:  fpept  of  □ectrical  &  Computer  Eng. 
NEW  Department:  jOept  of  Electricd  Eng. 


OLD  Mail  Stop:  jCode  EC.Fa 
NEW  Maa  Stop:  }Code  EaFoi ' 

OLD  Street  address:  "  7.  T 
I^TEW  Street  address:  1 


OLD  City:  jMonter^ 
NEW  Citr:  jMpnterey’ 


Figure  4-22.  Viewchng.exePait  1. 
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nd  L'ompu^ €*.•■«  j 


-£Bcs  '  2:9  fioflkmcrli«  i2p(>on»  i^Liioctcsfy  ^indovsi  >  iie|p 


mi 


I  >  - 1  S.  I  1 


'•Uoc9^:'fh«p://'1 31.1 2a2D^767c5^in^ 

■■N':  v--‘- Hii^  '  I  r-:Pie»bni^Q»  ’•  •|.^.■•jN»l%99roh■.,■'|  ■^■:^^eiy^9  ^  •  j  ;-f:S<rf(NW!t .  |  . 


0X0  Streiet  address^  I 
S^treet  addres^s:  f" 


0X0  City:  |Mom©rey 
lineW  City;  fK^nte^y  '  ' 

0X0  State: 

1<TEW  State: 

0X0  Zap  Code:  ISSaSiTsT 


^TEWTSp  Code:  333g43;^B121 


0X0  Coimtxy:  j^SA 
WnW  Cataxtry-.  juSA 


0X0  TelepKoae  nniiilier  (ivh]\  Area/Country  codes);  H^B«65C-‘2859 
NEW  Telephoxie  number  ^rrith  Area/Cotmtiy  codes):  j4D&^B5fr585ir 


0X0  Eax  munlier  ^wUh  Area/Country  codes):  f40M56-276b 
NEW  Fax  number  (vrith  Area/Cciuntry  codes):  j408-65&-27GD 


0X0  E-mail:  ;jt af'gues®© ce ,  n p s .n av/y  m il 


NEW  E-mail;  Jtaigu©  s  ® e  c©  .n  p  »,  navy.m  i ! 


•■  pb-l'^dni;;^  ,Mod^  :;.:p^sgaerd:  IGh^  . 

:  tb'd^e A  pptiQhst'.pis^'  ’  ■ 


:  :>iii£!?.aSlJ  .  I'O^tirna^-bonrs 


Figure  4-23.  Viewchng.exe  Part  2. 
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Netscape  {Asitomei  Signals,  Systems,  and  Uomputeisj 


BlilQ 


Figure  4-24.  Inputau.exe. 
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■  .£ite  liSirx^'  ydp 


,/,.  'm". 


Oj^  ,  .fin6 


/^•^^cadw::]  http:  //1 31120.20.  TO/CgwiVAuihSrch.  exs 

!'‘HelS(wch  j  Pteppio  }  Sflflwauf 


Asilomar  Conference  System  Administration 


No  Author  Found 


The  name  Mke  D  Chalfent  was  not  found.  You  may  add  mformabon  about  this  author  or  do  another  query. 


first  Name:  iMike 


Last  Naane:  jChaifant 


aCddle  Lutiat 


Honcoific  Xsde:} 

Institution:  |~~ 
Department;  f*" 
Mail  Stop:  jP^ 

Street  address: 


2ip  Code: 


Canntzy: 


leiephone  number  ^th  Area/Cnunny  codes):} 
Fax  nuntber  (with  Area/Codintry  codes):  \  . 
E-mail: }  '  '  .  ..  .  ....  ..  .. .. . 


Return  to  the  System.AdminDpSone  p^e  ■ 
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|y»,t  Net i cape  lAsiloineii  System:,  ond  Corup'jtcfj j 


•  ^.1 ' 

'<^1,  ■  1  1  ^  f  r  *  T  ^  T 


Uarr^yi  ■■  WiHi  \  9^»6- 


,v;|jg0;.:  Loc^doeic-  (http:  /'/'1 31 . 1 20.20.70/cgHvn/AulhSf  eh.  w© 

■  ■  .Whal'aWewff  }  What** Coot?  |  De»SnB(ior»,  1  Ke» Search  {  People  i  S^ieate.  t'.' 


Asilomar  Conference  System  Administration 


Author  Information 

We  hanre  located  tibis  record  in  the  datebase.  Changes  made  here  modify  the  permanent  record 


first  Name:  |Mike 


■  Last  Name:  jChalfanit 


IVUddLe  Initial:  |d 


Honoriiic  Title:  |U 

Institution:  fNav^l  raduate  Schoo I 

I>epastment:  Jlntomation  Technoiogy  Maitagemem 
Mail  Stop:  fcode  37  ^■. 


Street  adifaiess: 

Cily:  j . . 

Zip  Code: 


Caantry: 


Telephone  nmnlier  (fwHh  Area/Conntiy  codes):] 

Fax  numlier  (witih  Area/Country  codes):  1 
E-mail:  }imdchalta@nps  nos^ 

The  database  has  found  a  unique  entry  based  on  the  first  and  last  name  you  submitted.  If  you  believe  tbis  entry  refers  to 
another  person,  then  you  have  two  choices: 

•  If  the  author  nai^t  have  used  another  name,  then  Go  back  and  re-submit  your  query;  or 

•  If  this  is  tec  correct  name  but  not  tee  desired  record,  then  Add,  a  new  author  name  to  our  records 


lRubm;hThe:Se:$he^n:geS'^ 


::'Beturn':.io-  te'^''S5<?^eni.;A,drhiil  ';Dp;^oh^;pHa 


•  iboOc^ 


Figure  4-26.  Authsrch.exe:  Unique  Match  Found  in  Database. 
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NcUcopc  (Asilomor  'Signals.  Systems,  and  Computenj 


3i«w'£t>  8oflkniw»ki  fifcdory  ^iid|p 


-.Horn'  ^ 


^  M 

'Q|M  Rrtnt  r1^tf 


WhfilVNew?  I  Whaft;Cort?  I  Dc®tiriaaor»  j  fIdtSwch  |  fteciSe  J  Softwore 


Asilomar  Conference  System  Administration 


Multple  Author  Names  Match 

iNurabw  Last  Name  lirrtN  Institotiim  Name  D^artment  Name 

I  362  iJaigues  iMoaique  -P  -iDr.  i^Naval  Postgraduate  Scho<>ipept.ofBectrical&  Computer  Eng.  t 
:f'20^ Segues  :P'  ;S)r.  ;iNa5;ai Post^aduate Scho^jDgit  of ElecTO 

The  database  has  found  more  than  one  entry  that  matches  this  first  and  last  name.  If  the  name  is  on  the  Hst  then  click  on  the 
"Number"  which  is  to  the  right  of  the  name. 

If  you  believe  the  record  you  are  looloEgfor  is  under  another  name,  you  may  Resubmit  the  name. 
if  this  is  the  correct  name  bxtfnot  the  desired  record,  you  may  Add  a  new  author  name  to  our  records. 

S' ;  ) 


: :  ;;:i6octjnwiri;Dg^ 


Figure  4-27.  Authsrch.exe:  Multiple  Matches  Found  in  Database. 


Figure  4-28.  Artledit.exe. 
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vjEle  0  G o  .  :B,ookinaik«  Opdow  Directory  Window  .iMp 

<*»  I  I 

0act<  I  ^  :  ■<  Hprw 


Location:  |hftp7/1 31 .1 20.20. 70/cgi-vwv/AitlSrch.eKe 


-Whai’^New?  j  Whaf^Goot? 


D'eitinadom 


Asilomar  Conference  System  Administration 


Hicre  arc  321  records  m  the  Submission  Table. 


'Number  Tide 

262  ^2- 1  Redundant  Bbarv  Addition  with  Threshold  Loac 

92  3-D  Segmentation-based  Video  Processinjg 

259  ,7/2  Counters  and  Multiplication  Threshold  Logic 

149  A  Bit -level  Systolic  2D-IIR  Digital  Filter  "Withoiit  Feedback 

311  A  Communication  System  Testbed 

343  A  Compound  Near-Tar  End  Least  Square-Fourth  Error  Mnimization  for  Adaptive  Echo  Cancellatioa 
■I;  216  A  Consistentiv  Convergent  QBE  Algontiim.  that  Does  NotBequine  a  priori  IInowH.edge  of  Noise  Bounds 
199  :A  Past  Algorithm  for  the  BHnd  Separaticn  of  Digital  Co-clianriel  Signals 
;i  3~ci7  :  iAT  ast  Normalizer 


enervation  or 


iVT>othesis  ulustem 


341  I A  Genetic  Algorithm  for  Begdster  Allocation 


I  42  .  AElsb-PerfoTTnance  Reduced-Complesit?  OMSK  Demodulator 

•  ■  A l^asdmiim  likelihood.  Aupproach  to  Blind  Separation  ofPTairowband  Digitai  Cotninunic^iioa  Signals 

218  A  Modified  Boot-Pinding  Formant  Estimation  Algorithin  Based  on  LP  Aralygis 
172  A  Neural  ISTetwork  Trainmg  Algorithm  Utiliang:  Multipie  Sets  of  linear  Bauatjons 
239  A  New  Approach  for  Design  of  Paraimitarv  Pilter  Banks  T  .inf^ar  Phcise 

43  A  New  Approach  to  die  Design  of  Linear  Phase  Biortfiogonal  Pilter  Banks  and  Wavelets 

186  APTew  Factorization  and  Structure  for  Cosine  Modulated  Filter  Backs  with  Variable  System  Delay 

2^9  'A-  New  P^lethod  for  Conversion  of  a  2's  Complement  to  Canonic  Sign  D'ityi't  PTumber  System  and  its 

'  'P..epresentatLQn 

147  :  A  New  Type  QFPerEect-Pleconstnictioii  OMF  Banks 

!  274  A  Nonuniform  Filterbank:  for  Auditory  Modeling 

:  175  A.  Novel  Crosg-Correlation  Eased  AT>proach  to  Blind  Equalization  and  Comparison  with  Existing  Meti 
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Reviewer  p  asswords . 

To  change  a  reviewer  password,  enter  the  infoimation  below  and  "Modify  a  Reviewer  Paissword."  The  new  password 
must  be  entered  twice  to  ensure  validity.  To  ADD  or  DELETE  a  Reviewer,  select  the  ^propriate  Buttons  below. 

Reviewer  name:  f 
Old  Password:  j 
New  Password:  | 

New  Pas  sword  Again:  | 


Modify  Reviewer  Password 


Dear  Values . 
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Add  a  n  ew  Reviewer 


Del  ete , a  Reviewer 


Return  to  the  System  Admin  Option??  page 


boctiBwiTii:  bona 


Figure  4-44.  Passwds.exe. 
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New  Username:  I 
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Figure  4-45.  Pwdaddexe. 
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To  DELETE  a  System  Admin  User,  please  enter  the  foflowing. 


User  name: 


Password: 


R^urn  to  th  e  Sy.steni  AdminOpti^o 


-QocfwmenJ:  bpOe- ' 


Figure  4-46.  Pwddel.exe. 
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Figure  4-47.  P_Sess.exe. 
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This  function  Prints  the  Abstract  Catalog,  organized  by  sessions  to  the  file  named  below.  Changes  to  File  Name  can  be 
made  below,  ff  the  file  does  not  east,  it  will  be  created. 
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Figiire4-51.  P_abscat.exe. 
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V.  CONCLUSION  &  RECOMMENDATIONS 


A.  CONCLUSION 


The  Asilomar  Conference  on  Signals,  Systems,  &  Computers  has  begun  the 
transition  to  the  information  age.  The  goals  of  this  thesis  were  to;  1)  analyze  the 
Asilomar  Conference  on  Signals,  Systems,  &  Computers,  2)  improve  the  article 
submission  and  review  process,  3)  develop  a  target  information  system  and,  4) 
implement  a  portion  of  the  target  system.  By  attaining  these  goals,  we  have  not  only 
streamlined  and  automated  many  of  the  processes  of  the  Asilomar  Conference,  but  also 
have  developed  a  framework  for  an  Internet  conferencing  system.  In  the  future,  it  could 
no  longer  be  necessary  for  people  to  gather  in  a  single  geographic  location  for  such  a 
conference.  By  exploiting  the  power  of  the  Internet,  registration,  reviewing,  database 
maintenance,  and  even  presenting  can  be  done  from  any  Internet  connection. 


B.  UPGRADES  TO  CURRENT  SYSTEM 

1 .  Change  the  current  Delphi  executable  programs  to  32-bit  executables. 

This  improvement  could  be  accomplished  by  upgrading  to  Delphi  2.0  and 
importing  the  current  programs  and  re-compiling  them.  Some  changes  will  need  to  be 
made  to  insure  compatibility.  The  32-bit  programs  should  run  faster  than  the  current  16- 
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bit  programs.  Switching  to  Delphi  2.0  would  also  allow  the  use  of  HREF  Tools  Corp’s 
WEBHUB  [Ref  4]  which  more  efficiently  handles  multiple  users  and  increases  the 
performance  of  the  server  software. 

Executables  created  by  either  version  1.0  or  2.0  of  Delphi  have  a  small  drawback. 
Variable  information  cannot  be  passed  between  executable  programs.  That  is,  once  a 
program  has  completed  its  function  and  calls  another  program,  all  variable  information 
(known  as  program  state)  is  lost.  WEBHUB,  which  is  only  compatible  with  Delphi  2.0, 
maintains  information  stored  in  variables  after  an  executable  is  complete.  This  is 
enhanced  by  the  fact  that  WEBHUB  can  maintain  program  state  for  multiple  users 
accessing  the  same  portion  of  the  system. 

2.  Purchasing  a  more  powerful  FTP  server. 

A  commercially  available  FTP  server  would  improve  upon  the  capability  and 
security  of  the  shareware  program  currently  in  place.  Purchased  software  would  also 
include  technical  support  not  available  with  the  unregistered  version  of  FTPD. 

C.  NEW  FEATURES 

1.  Reviewing  articles  on-line. 

Automating  the  review  process  would  enable  reviewers  to  review  papers 
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remotely.  The  present  methodology  could  be  modified  to  include  making  the  review 
“blind”  or  even  “double-blind”  to  ensure  Durness.  Papers  could  be  reviewed  by  multiple 
reviewers  who  each  give  an  accept  or  reject  vote  along  with  whatever  comments  they 
feel  are  appropriate.  The  final  determination  could  be  made  manually,  human  tallying  of 
the  votes,  or  automatically,  with  the  system  counting  the  votes  and  only  presenting  “tie- 
votes”  for  human  determination.  The  automated  tally  system  could  even  allow  for 
weighting  the  votes  by  rating  reviewers  by  experience  or  expertise. 

2.  Scheduling. 

An  automatic  scheduling  routine  could  be  built  to  schedule  the  selected  articles 
into  sessions.  Currently  assigned  by  the  reviewers,  automating  this  process  would  relieve 
the  reviewers  of  this  tedious  task.  Computer  generated  schedules  could  be  modified  as 
necessary  by  the  System  Administrator. 

3.  Registration. 

Allowing  attendees  to  register  on-line  would  further  reduce  the  mailing  and 
administrative  costs  to  participants  and  administrators  for  the  conference.  On-line 
payment  capability  would  be  a  pre-requisite  for  this  implementation.  An  ideal  system 
would  also  coordinate  requests  for  Hotel  room,  rental  car,  and  dinner  reservations. 
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4. 


Send  Mail  Utility. 


An  attempt  was  made  to  implement  a  shareware  utility  for  Delphi  called 
“SendMail”  [Ref  9].  This  utility  would  automatically  generate  an  e-mail 
acknowledgement  once  the  user  had  completed  the  submission  process.  The 
functionality  was  initially  implemented  into  the  author  submission  sub-system,  but  was 
removed  because  the  shareware  version  halted  the  server  each  time  an  e-mail  message 
was  sent.  The  code  for  SendMail  is  still  in  place,  but  has  been  commented  out.  The 
registered  version  is  supposed  to  eliminate  this  problem.  This  feature,  which  would 
acknowledge  receipt  of  a  user’s  inputs,  increases  the  reliability  of  the  data  and  the  users’ 
sense  of  security  about  the  system. 
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APPENDIX  A.  DELPHI  TUTORIAL 


A.  OVERVIEW 


In  setting  up  a  Windows  based  web  server  there  are  four  basic  software 
components.  First,  web  server  software  such  as  Website  [Ref.  6],  WinHTTPD  [Ref  5], 
or  ZB  Server  [Ref  1 1]  is  needed  to  link  a  computer  to  a  specific  Internet  address.  This 
software  will  activate  your  homepage  when  your  IP  address  is  accessed  by  a  user.  Web 
server  software  packages  vary  greatly  in  price  and  performance  but  there  are  similarities 
in  the  way  all  of  them  operate.  In  general,  once  set  up,  web  servers  will: 

1 )  assume  you  have  already  established  an  Internet  connection  with  a  valid 
IP  address 

2)  create  the  following  sub-directories  below  its  own: 

A)  cgi-bin  -  for  Windows  Perl  cgi  scripts 

B)  cgi-win  -  for  other  Windows  cgi  scripts. 

C)  cgi-dos  -  for  DOS  Perl  cgi  scripts 

D)  htdocs  -  for  HTML  (Hyper  Text  Markup  Language)  documents 

3)  assume  you  have  already  created  an  HTML  document  that  will  serve  as 
your  homepage.  This  document  usually  must  be  named  “Index.htm”  and 
placed  in  the  “htdocs”  directory. 

(Note:  “cgi”  stands  for  Common  Gateway  Interface  and  is  merely  a  protocol  that  scripts 
must  follow.  A  script  is  a  program  that  executes  on  the  web  server  and  interacts  with 
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HTML  documents.) 


The  second  software  item  you  will  need  is  HTML  documents.  These  documents 
are  written  in  plain  text  (any  text  editor  will  suffice)  and  determine  how  and  what  a  web 
browser  will  display.  There  are  many  programs  available  as  shareware  that  greatly 
simplify  the  process  of  creating  HTML  documents.  These  include:  HTMLAssist  [Ref 
12],  and  HotDog  [Ref  13].  HTML  allows  the  presentation  of  text,  graphics,  soimds,  and 
animation,  and  will  allow  users  to  navigate  through  your  pages  via  hypertext  links. 

It  is  possible  to  run  a  web  site  with  just  the  two  software  packages  mentioned 
above,  however  users  will  be  limited  to  merely  looking  at  pages  you  present.  If  you  want 
users  to  be  able  to  interact  with  your  pages,  you  will  need  at  least  one  more  piece  of 
software.  This  piece  is  a  scripting  language.  Languages  such  as  Perl,  Delphi,  and  Cold 
Fusion  create  executable  files  that  are  run  whenever  a  user  accesses  your  page.  These 
executables  can  perform  such  tasks  as  read  data  from  a  form,  then  create  an  entirely  new 
page  using  that  data.  We  will  see  an  example  of  this  later  in  this  tutorial. 

Although  scripting  languages  allow  users  to  interact  with  web  pages,  information 
will  be  not  be  recorded  unless  the  program  interacts  with  a  database  of  some  sort.  This  is 
the  final  software  requirement.  Newer  scripting  languages  have  built  in  database 
interactions  and  serve  as  the  go  between  for  web  pages  and  database  operations.  Data 
storage,  retrieval,  queries,  and  reports  can  all  be  performed  via  a  web  page  using  a  web 
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server,  HTML  documents,  a  scripting  language,  and  a  database. 


This  was  a  brief  overview  of  the  software  components  required  to  run  a  PC  based 
web  server.  In  general  web  server  software  is  relatively  simple  to  set  up  and  maintain. 
The  challenge  lies  in  learning  and  using  a  scripting  language  to  develop  the  types  of 
applications  that  will  be  useful  to  you  and  your  users.  The  rest  of  this  tutorial  will  focus 
on  using  Borland  Delphi  Application  Development  software  as  a  scripting  language. 
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B.  SAMPLE  APPLICATION 


The  first  step  in  designing  any  web  application  is  developing  a  general  plan  of 
how  each  page  will  look,  what  fimctions  it  will  perform,  and  how  the  user  will  navigate 
through  it.  The  example  I  will  use  for  this  tutorial  is  an  application  that  runs  a  game 
called  “MadLib.”  In  this  game,  the  user  is  required  to  enter  in  words  of  a  specific  type, 
then  the  application  uses  those  words  in  a  pre-formatted  story  and  creates  a  new  web 
page  with  the  story  on  it.  My  plan  for  this  application  is  as  follows: 

1)  I  will  need  an  input  form  to  read  in  the  user’s  words 

2)  I  can  create  that  form  using  basic  HTML  commands 

3)  I  will  need  a  CGI  script  to: 

-  get  those  words  off  the  form 

-  create  a  new  web  page  with  the  story  using  those  words 

Now  that  I  have  decided  on  what  I  need,  I  can  create  the  necessary  components. 
The  HTML  form  which  will  input  user’s  words  then  load  the  CGI  application  appears 
below.  Explanatory  comments  are  incorporated  with  the  format  <  --  comments  —  >. 

<HTML> 

<HEAD> 

<TITLE>  Delphi  test:  A  MadLib  Input  form</TrrLE> 
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<CENTERxHl>  MadLib  Input  Form</Hlx/CENTER> 

<HR> 

</HEAD> 

<BODY> 

A  "MadLib"  is  a  game  where  I  take  your  inputs  for  some  words  and  put  these  words  into 
a  story.  Depending  on  how  <EM>creative</EM>  you  are,  the  results  can  be  hilarious! 

<P> 

Please  provide  appropriate  responses  for  the  following  fields.  Have  fun!<P> 

<HR> 

<CENTER> 

<  -  ******  The  following  statement  is  the  key  statement  of  this  form.  It  loads  the  CGI 
application  “madlib.exe”  when  the  “Submit”  button  is  pressed  on  the  form.  Madlib.exe 
is  the  executable  file  that  you  will  create  in  Delphi  ****♦*..  > 

<FORM  METHOD="POST"  ACTION="http://131. 120.20.70/cgi-win/madlib.exe"> 

<  —  The  “Table”  section  creates  an  input  table  with  visible  “Borders”  between  cells.  —  > 


<TABLEBORDER> 

<TD>A  girl's  name:  </TD> 
<TDxINPUT  NAME="girl"></TD> 
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<TR> 


<TD>A  boy's  name:  </TD> 

<TD><INPUT  NAME="boy"x/TD> 

<TR> 

<TD>A  day  of  the  week:  </TD> 

<  --  The  “Select”  command  creates  a  drop  down  menu  with  each  “Option”  available  as  a 
selection  -  > 


<TDxSELECT  NAME="day"  TYPE="TEXT"> 
<OPTION>Sunday 
<OPTION>Monday 
<OPTION>Tuesday 
<OPTION>Wednesday 
<OPTION>Thursday 
<OPTION>Friday 
<OPTION>Saturday 
</SELECT> 

</TD> 

<TR> 

<TD>A  female  relative</TD> 

<TD><SELECT  NAME="relative''  TYPE="TEXr’> 
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<OPTION>mother 


<OPTION>sister 

<OPTION>aunt 

<OPTION>grandmother 

</SELECT> 

</TD> 

<TR> 

<TD>An  adjective;  </TD> 

<TDxINPUT  NAME="adjective"x/TD> 
<TR> 

<TD>A  type  of  pet;  </TD> 

<TD><INPIJT  NAME="pet"x/TD> 

<TR> 

<TD>A  piece  of  furniture;  </TD> 
<TDxINPUT  NAME=''fuTniture"x/TD> 
<TR> 

<TD>A  verb  ending  in  "ing";  </TD> 
<TDxINPUT  NAME="ingverb"x/TD> 
<TR> 

<TD>Anoun;  </TD> 

<TDxINPUT  NAME="noun"X/TD> 
<TR> 
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<TD>A  time  of  ciay:</TD> 

<TDxSELECT  NAME="time"  TYPE="TEXT"> 
<OPTION>moming 
<OPTION>aftemoon 
<OPTION>evening 
<OPTION>night 
</SELECT> 

</TD> 

<TR> 

<TD>A  present  tense  action  verb;  </TD> 
<TDxlNPUT  NAME="actverb"x/TD> 

<TR> 

</rABLE> 

<P> 


<  --  The  following  “Input”  statements  are  standard  t3Tpes.  “Submit”  sends  the  form  to  the 
URL  listed  in  the  “Form”  statement  at  the  beginning  of  the  document.  The  “Value” 
statement  applies  a  label  to  the  button.  --  > 


<INPUT  TYPE="submit"  VALUE="Run  the  MadLib"> 


<INPUT  TYPE="reset"  VALUE="Start  Over"> 


</CENTER> 
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</FORM> 


<P><HR><P> 

<A  HREF— 'http;//13 1 . 120.20.70">Back  to  Asilomar  Home  Page</AxP> 
Questions  or  comments?  Send  mail  to:  <A  HREF="mailto;mikec^ps.navy.mir’> 
mikec@nps.navy.mil</A><P> 

<i>This  page  last  modified  12  February  1996.</i> 

</BODY> 

</HTMl> 


The  next  step  is  to  compose  the  CGI  program.  I  will  outline  the  steps  I  followed 

using  Delphi’s  Integrated  Development  Environment  (IDE). 

1 )  To  load  the  IDE  click  on  the  icon  that  resembles  a  house  with  columns 

2)  You  should  be  presented  with  a  new  project,  if  not  select  “New”  from  the  “File” 
menu 

3)  On  the  Component  Palette,  click  on  the  CGI  speed  tab,  click  on  the  first  CGI 
icon,  then  click  in  the  form  window.  The  first  CGI  icon  (CGIEnvData)  loads 
general  scripting  information  to  your  form,  the  second  (CGIDB)  adds  database 
specific  components  which  will  not  be  used  in  this  example. 

4)  The  CGI  element  icon  should  have  black  boxes  in  the  comers  to  indicate  that  it  is 
selected.  Look  at  the  Object  Inspector  window.  The  ‘properties’  tab  should  be 
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selected.  All  of  the  defaiilt  values  are  acceptable.  If  you  click  on  the  ‘events’  tab 
you  should  not  see  any  available  events. 

5)  Click  on  a  blank  spot  in  the  form  window  to  deselect  the  CGI  element.  Now  let’s 
look  at  the  Object  Inspector  window.  Make  sure  that  the  ‘properties’  tab  is 
selected.  For  this  example,  all  of  the  default  values  are  acceptable.  These  values 
and  their  meanings  are  covered  in  section  three  of  this  tutorial. 

6)  Now,  click  on  the  ‘events’  tab  in  the  object  inspector.  This  is  a  list  of  things  that 
will  happen  when  the  user  initiates  certain  actions.  I  want  this  application  to 
create  a  form  when  it  is  called,  so  click  on  the  box  next  to  “OnCreate”.  Now  type 
a  name  for  a  procedure  which  will  create  a  form  (I  used  the  name  FormCreate  in 
the  example.  You  may  use  any  munber  of  characters,  but  no  spaces).  After  you 
type  the  name,  hit  ‘enter’,  this  will  bring  up  the  code  editor  window.  The 
following  code  will  already  have  been  added  for  you: 


unit  Unit  1; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgi,  DB; 

type 

Tforml  =  class(TForm) 

CGBEnvDatal:  TCGBEnvData; 
procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations  } 

public 

{ Public  declarations  } 

end; 

var 
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fomil:  Tforml; 

implementation 
{$R  *.DFM} 

procedure  Tforml. FormCreate(Sender;  TObject); 
begin 

end; 

end. 


7)  The  cursor  will  be  after  the  begin  statement.  You  will  now  write  the  code  that 
will  a)  get  data  from  the  HTML  form,  and  b)  create  the  new  page  using  that  data. 

8)  The  first  step  is  to  declare  variables  that  the  Delphi  application  will  use.  The 
variable  declaration  section  comes  before  the  ‘begin’  statement  and  after  the 
‘procedure’  statement.  You  will  need  to  declare  one  variable  for  each  ‘INPUT 
NAME’  or  ‘SELECT  NAME’  in  the  HTML  document.  Note;  to  avoid  confusion, 
use  different  variable  names  than  what  ‘NAMES’  were  in  the  HTML  document. 
Since  we  are  reading  in  text  from  the  form,  the  variables  will  be  set  to  type 
‘string’.  My  variable  declarations  section  was  as  follows: 


var 

dgirl :  string; 
dboy :  string; 
dday ;  string; 
drelative :  string; 
dadjective :  string; 
dpet :  string; 
dfumiture :  string; 
dingverb :  string; 
dnoun ;  string; 
dtime :  string; 
dactverb ;  string; 


9)  Now  move  the  cursor  past  the  ‘begin’  statement.  Since  this  procedure  uses 
CGIEnvData,  we  must  add  the  line:  with  CGIEnvDatal  do  The  ‘1’  on  the  end 
tells  Delphi  that  this  will  be  the  first  instance  of  CGIEnvData. 

10)  Now  on  a  new  line  type;  begin  This  starts  the  procedure  to  gather 

and  use  the  data. 

11)  After  this  second  ‘begin’  statement  three  statements  must  be  added  which  need 
to  be  present  in  ALL  Website  Delphi  applications.  They  are: 
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webSitelNIFilename  :=  paramstr(l); 
application.  onException  :=  cgiErrorHandler; 
application.processMessages; 

12)  The  next  line  to  be  added:  createStdout;  tells  Website  that  an  HTML 

form  will  be  created. 

13)  The  next  line  is:  sendPrologue;  This  statement  is  accomplished 

before  the  creation  of  the  new  HTML  document  and  is  the  begiiming  of  the 
section  where  you  will  gather  the  user’s  data.  In  the  following  section,  you  will 
be  setting  the  Delphi  variables  you  declared  earlier,  equal  to  the  ‘INPUT 
NAMES’  from  the  form.  The  format  for  that  is: 

variable  :=  getSmallField(  ‘INPUT  NAME’  or  ‘SELECT  NAME’ ); 

In  the  example  this  section  was  as  follows: 
dgirl  :=  getSmallField(  'girl' ); 
dboy  :=  getSmallField(  'boy' ); 
dday  :=  getSmallField(  'day' ); 
drelative  :=  getSmallField(  'relative' ); 
dadjective  :=  getSmallField(  'adjective' ); 
dpet  :=  getSmalIField(  'pet' ); 
dfumiture  :=  getSmallField(  'furniture' ); 
dingverb  :=  getSmallField(  'ingverb' ); 
dnoun  :=  getSmallField(  'noun' ); 
dtime  :=  getSmallField(  'time' ); 
dactverb  :=  getSmallField(  'actverb' ); 

14)  Now  that  you  have  collected  the  data,  you  will  create  the  new  HTML  document 
via  the  ‘send’  command.  The  general  format  is: 

send(  ‘<HTML  tag>’  +  variables  +  ‘regular  text’ ); 

Note  that  items  within  the  ( )  can  be  in  any  order,  so  long  as  proper  HTML  is  used.  The 
key  here  is  that  variables  may  be  included  and  are  indicated  by  not  being  enclosed  in 
quotes.  There  are  a  few  special  ‘send’  commands  such  as  ‘sendHR’  and  ‘sendTitle’  that 
should  be  self-explanatory. 

15)  The  following  is  a  completion  of  the  new  HTML  document: 


send(  '<HTMLxHEAD>' ); 
sendTitle(  'Here  is  your  custom-made  MadLib...' ); 
send(  '</HEADxBODY>' ); 
send('<centerxhl>Here  is  your  MadLib</hl>'); 
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send('Thank  you  for  you  input.  </center>'); 

send('<p>'); 

sendHR; 

send('One '  +  dday  +  "  +  dtime  + +  dboy  + '  woke  up  and '); 
send('found  his '  +  drelative  +  "  +  dgirl  +  "  +  dingverb  + ' '); 
send('her '  +  dpet  + '  on  the '  +  dfumiture  + Amazed  by  ’); 
send('this  affectionate  display, '  +  dboy  + '  asked '); 
send(dgirl  +  "Would  you  like  to '  +  ^ctverb  + '  my '); 
send(dadjective  +  "  +  dnoun  + '  when  you"re  done?'"); 
send(  '<P>' ); 
send('<p>'); 
sendHR; 

send(  '<a  href="http://131.120.20.70">’ ); 
send(  Return  to  the  Asilomar  Home  Page</A>'); 
send(  ’<P>' ); 

send(  'This  application  was  created  using  Delphi  CGI  components. '); 
send(  '<P>' ); 

send(  'Generated  on '  +  webdate(now) ); 
send(  '</BODY></HTMDL>' ); 

16)  Now  that  the  new  form  is  complete  you  must  tell  Website.  The  next  line  is: 
closeStdout; 

17)  Then:  end; 

1 8)  Now  the  applications  opened  just  after  the  ‘begin’  statement  must  be  closed  via 
the  command:  closeApp(  application ); 

19)  Now  another:  end;  to  close  the  procedure 

20)  And  one  more:  end;  to  close  the  entire  application 

21)  Now  let’s  save  the  project.  Select  File  ]  Save  project  as 

22)  Delphi  will  prompt  you  to  enter  a  name  for  the  code  you  have  just  written.  This 
name  must  be  different  than  the  name  of  the  executable  file  which  Delphi  asks 
for  next.  For  instance,  if  you  planned  to  have  the  executable  named  “Madlib.exe” 
as  in  this  example,  you  should  name  the  .PAS  file  something  else.  I  used 
“Madlibpr.pas”.  Now  Delphi  will  ask  for  your  project  name.  This  is  the  time  to 
enter  the  executable  program’s  name. 

23)  You  are  now  ready  to  compile!  From  the  top  menus,  select  Options  |  Project. 

The  ‘Project  Options’  window  will  open.  On  the  quick  tabs,  select 
‘Directories/Conditionals’.  The  field  ‘Output  Directory’  is  blank.  This  field 
indicates  the  directory  where  you  want  the  compiled  executable  to  be  placed. 
Click  on  the  down  arrow  to  the  right  of  the  field  and  you  will  be  given  a  choice  of 
directories  that  you  have  previously  entered.  ‘C:\website\cgi-win’  is  the  directory 
for  Windows  CGI  applications,  so  select  that  from  the  list  or  type  it  in  manually. 
Click  ‘OK’. 
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24)  Now  from  the  menu,  select  Compile  |  Compile.  If  you  have  any  errors  in  your 
code,  they  will  be  highlighted  in  red.  A  vaguely  helpful  message  will  be 
displayed  at  the  bottom  of  the  window.  Note  that  semi-colons  or  the  absence  of 
semi-colons  is  very  important.  One  misplaced  semi-colon  can  cause  many  errors. 
Generally  spaces  are  not  important  to  Delphi.  Also  notice  that  some  wor^ 
become  bold  when  you  type  them  (i.e.  var,  procedure,  begin,  etc.)  these  words 
are  key  words  and  may  not  be  used  elsewhere  in  your  script. 

25)  Once  your  code  has  compiled,  you  are  done.  Exit  Delphi  and  fire  up  your  web 
browser.  A  complete  copy  of  the  example  code  follows  on  the  next  two  pages. 
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unit  Madlibpr; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls 
Forms,  Dialogs,  Cgi,  DB; 


type 

Tforml  =  class(TForm) 

CGBEnvDatal :  TCGIEnvData; 

procedure  FormCreate(Sender;  TObject); 
private 

{  Private  declarations } 

public 

{  Public  declarations } 

end; 

var 

forml:  Tforml; 
implementation 
{$R  *.DFM} 

procedure  Tforml. FormCreate(Sender;  TObject); 
var 

dgirl :  string; 
dboy :  string; 
dday ;  string; 
drelative ;  string; 
dadjective ;  string; 
dpet :  string; 
dfumiture :  string; 
dingverb :  string; 
dnoun :  string; 
dtime ;  string; 
dactverb ;  string; 


begin 

with  CGIEnvDatal  do 
begin 

webSitelNIFilename  :=  paramstr(  1 ); 
application.  onException  :=  cgiErrorHandler; 
application.processMessages;  {  need  to  have  this  !  } 
CreateStdout; 
sendPrologue; 

dgirl  :==  getSmallField(  'girl' ); 
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dboy  :=  getSmallField(  'boy' ); 
dday  :=  getSmalIField(  'day' ); 
drelative  ;=  getSmallField(  'relative' ); 
dadjective  ;=  getSmallField(  'adjective' ); 
dpet  ;=  getSmallField(  'pet' ); 
dfumiture  ;=  getSmallField(  'furniture' ); 
dingverb  :=  getSmallField(  'ingverb' ); 
dnoun  ;=  getSmallField(  'noun' ); 
dtime  :=  getSmallField(  'time' ); 
dactverb  ;=  getSmallField(  'actverb' ); 
send(  '<HTML><HEAD>' ); 
sendTitle(  Here  is  your  custom-made  MadLib...' ); 
send(  '</HEAD><BODY>' ); 
send('<centerxhl>Here  is  your  MadLib</hl>'); 
send('Thank  you  for  you  input.</center>'); 
send('<p>'); 
sendHR; 

send('One '  +  dday  +  "  +  dtime  + ', '  +  dboy  + '  woke  up  and '); 
send('found  his '  +  drelative  +  "  +  dgirl  +  "  +  dingverb  + '  ’); 
send(’her '  +  dpet  + '  on  the '  +  dfumiture  + '.  Amazed  by '); 
send('this  affectionate  display, '  +  dboy  + '  asked '); 
send(dgirl  + ',  "Would  you  like  to  ’  +  dactverb  + '  my '); 
send(dadjective  +  "  +  dnoun  + '  when  you"re  done?"'); 
send('<p>'); 
sendHR; 

send(  ’<a  href="http://131.120.20.70">' ); 
send(  'Return  to  the  Asilomar  Home  Page</A>'); 
send(  '<P>' ); 

send(  'This  application  was  created  using  Delphi  CGI  components. '); 
send(  '<P>' ); 

send(  'Generated  on '  +  webdate(now) ); 
send(  '</BODYx/HTML>' ); 

closeStdout; 

end; 

closeApp(  application ); 

end; 

end. 
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Delphi  may,  at  first,  seem  intimidating,  even  wifii  previous  programming 
ejqjerience.  Our  initial  expectations  were  of  a  totally  “point-and-click”  interface,  which, 
as  we  have  seen  is  not  the  case.  But  having  woiked  with  several  Del|^  applications,  we 
have  grown  accustomed  to  the  format.  Many  of  the  statements  used  in  the  example  you 
just  completed,  are  common  to  all  CGI  scripts.  The  layout  is  always  the  same.  First 
come  the  variable  declarations,  then  the  standard  Website  statements,  then  prologue 
operations,  then  web  page  creation.  Delphi  also  offers  die  power  of  a  built  in  database 
which  allows  seamless  compatibility. 

The  scripting  language  is  a  close  relative  of  Pascal.  We  did  not  include  in  this 
tutorial  a  discussion  of  p'ogramming  techniques,  explanations  of  variable  types,  and 
some  other  minor  details.  While  it  would  take  several  hundred  pages,  all  of  this 
information  is  available  in  the  online  help  which  is  quite  extensive.  Help  for  the  CGI 
environment  elements  can  be  downloaded  and  incorporated  into  the  DeljAi  help  file. 
Delfdii  also  has  built-in  interactive  tutors  which  include  a  demonstration  of  how  to  build 
an  application  (non-CGI  only)  which  can  be  used  to  increase  familiarity  with  the  program 
environment. 
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APPENDIX  B.  APPLICATION  TEMPLATES 


An  Application  Template  is  a  tool  used  in  system  design  to  determine  which 
processes  should  be  kept,  discontinued,  or  re-engineered.  For  the  Asilomar  Conference, 
seven  major  processes  were  identified: 

1)  Submissions  via  Postal  Mail  (Snail  Mail), 

2)  Submission  via  E-mail, 

3)  The  existing  Asilomar  Web  page  and  FTP  site, 

4)  The  article  review  process, 

5)  Conference  topic  area  determination, 

6)  Presentations  of  articles, 

7)  The  hard  copy  proceedings  of  the  Conference. 

Each  of  these  processes  is  rated  three  different  ways:  1)  User  satisfaction  versus  strategic 
value  (Fig.  B-1),  2)  Technical  quality  versus  strategic  value  (Fig.  B-2)  and,  3)  Technical 
quality  versus  technical  evolution  (Fig.  B-3).  These  three  ratings  are  then  totaled  for 
each  process  and  displayed  in  the  Summarized  Assessment  graph  (Fig.  B-4).  This  graph 
indicates  by  quadrant  which  process  should  be:  1)  replaced  or  discarded,  2)  kept  and 
tuned,  3)  renovated  or  re-engineered  and,  4)  built  upon. 
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Technical  Quality  versus  Strategic  Value 
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Strategic  Value 


Technical  Quality  versus  Technical  Evolution 


Figure  B-2.  Technical  Quality  Versus  Technical  Evolution. 
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Technical  Evolution 


High  User  Satisfaction  versus  Strategic  Value 


Figure  B-3.  User  Satisfaction  Versus  Strategic  Value. 
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Strategic  Value 


Summarized  Assessment 


Figure  B-4.  Summarized  Assessment. 
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Strategic  Value 
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APPENDIX  C.  SALSA  DATABASE  DESIGN  TABLES 


Salsa  is  a  shareware  database  design  tool.  Users  enter  information  about  the  data 
they  wish  to  store,  and  Salsa  will  create  the  necessary  relational  database  tables.  For 
example,  in  this  thesis,  it  was  determined  that: 

1 )  A  Contact  Author  could  submit  more  than  one  Paper, 

2)  A  Paper  could  have  more  than  one  Author, 

3)  A  Paper  could  have  more  than  one  Keyword, 

4)  A  Presentation  Session  could  have  more  than  one  Paper. 

These  relationships,  along  with  the  format  of  each  data  element  (last  name,  address,  etc.) 
were  entered  into  Salsa  which  generated  the  database  tables.  Salsa  also  automatically 
generates  reports  that  give  database  managers  a  quick  reference  of  the  database  structure. 
Figure  C-1  shows  the  titles  of  each  table  created,  and  the  labels  for  each  data  element 
within  a  table.  Figures  C-2  through  C-8  summarize  the  data  format  for  each  data 
element. 
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Figure  C-1 .  Database  tables. 
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Figure  C-2.  Author.db  data  elements. 
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Figure  C-3.  Tempauth.db  data  elements. 
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None 

Accepted 

None 

Author 

None 

Session 

None 

Order  In  Session 

None 

Presentation  Time 

None 

Keyword 

None 

Abstract 

None 

Contact  Author  Order 

None 

Other  Authors 

None 

First  Name 

None 

Last  Name 

None 

Initial 

None 

Institution 

None 

Order 

None 

Minimum 

Required 

1 

0 

0 

0 

1 

0 

0 

0 

1 

0 

0 

0 

0 

0 

0 

0 

0 


Maximum 

Allowed 

1 

1 

1 

1 

1 

1 

1 

1 

3 

1 

1 

6 

1 

1 

1 

1 

1 


Value  Type 

Long  Integer 
Text 
Text 
Text 

Semantic  Object 
Semantic  Object 
Text 
Text 

Semantic  Object 

Memo 

Text 

Group 

Text 

Text 

Text 

Text 

Text 


Length  Formula  Expression 

160 

1 

1 


2 

7 


1 

25 

25 

10 

60 

1 


Figure  C-4.  Submissi.db  data  elements. 
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Semantic  Object  Report 

Album:  ASiLOMAR.ALB 


SESSION  Semantic  Object 

Caption: 

Description: 


Data  Attributes: 


Attribute  Name 

iD  Status 

Minimum 

Required 

Maximum 

Allowed 

Value  Type 

Length  Formula  Expression 

Session  Number 

Unique 

1 

1 

Long  Integer 

Neumonic 

None 

0 

1 

Text 

5 

Submissi 

None 

0 

N  (No  Limit) 

Semantic  Object 

Figure  C-5.  Session,  db  data  elements. 
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Semantic  Object  Report 

Album:  ASiLOMAR.ALB 


KEYWORD  Semantic  Object 


Caption: 

Description: 


Data  Attributes: 


Attribute  Name 

Identifier-Numeric 

Keyword 

Submissi 


10  Status 

Minimum 

Required 

Maximum 

Allowed 

Value  Type 

Length  Formula  Expression 

Unique 

1 

1 

Long  integer 

None 

0 

1 

Text 

50 

None 

0 

1 

Semantic  Object 

Figure  C-6.  Keyword.db  data  elements. 
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Semantic  Object  Report 

Album:  ASILOMAR.ALB 


ADMIN  Semantic  Object 

Caption: 

Description: 


Data  Attributes: 

Attribute  Name 

Identifier-Numeric 

UserlD 

Password 


ID  Status 

Minimum 

Required 

Maximum 

Allowed 

Value  Type 

Length 

Unique 

1 

1 

Long  Integer 

None 

0 

1 

Text 

20 

None 

0 

1 

Text 

20 

Formula  Expression 


Figure  C-7.  Admin.db  data  elements. 
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Semantic  Object  Report 

Album:  ASILOMAR.ALB 


REVIEW  Semantic  Object 

Caption: 

Description: 


Data  Attributes: 


Attribute  Name 

ID  Status 

Minimum 

Required 

Maximum 

Allowed 

Value  Type 

Length  Formula  Expression 

Identifier-Numeric 

Unique 

1 

1 

Long  Integer 

Reviewer!  D 

None 

0 

1 

Text 

20 

Password 

None 

0 

1 

Text 

20 

Figure  C-8.  Review.db  data  elements. 
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APPENDIX  D.  SURVEY  RESULTS 


1995  Conference  Survey  results. 

A  total  of  1 1 8  surveys  were  returned.  Actual  results  are  included  but  highlights 
are  as  follows: 

-  Most  attendees  have  WWW  access  already 

-  Netscape  was  by  far  the  browser  of  choice 

-  Respondents  were  very  positive  about  web  access  to: 

1 )  Retrieving  registration  materials, 

2)  Submitting  articles, 

3)  And  Previewing  selected  abstract. 

-  Respondents  were  unsure  about  whether  they  would  send  comments  to 
article  authors  about  their  articles. 

The  following  pages  summarize  the  data  collected  from  the  1995  survey. 
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1. 


What  is  your  age? 


3%  4  O  under  25  years  old 

50%  59  0  25  to  34  years  old 

26%  30  0  35  to  44  years  old 


2.  What  is  your  gender? 

88%  101  O  Male 

12%  14  O  Female 


3.  WHiat  is  your  occupation? 


40% 

47 

0  Academic  Faculty  15% 

18 

0  Design  Engineer 

30% 

35 

0  Full-time  Student 

0  Production  Engineer 

1% 

1 

0  Engineering  Management 

0  Other: 

9% 

10 

Research  Engineer 

2% 

2 

Post  Doc 

1% 

1 

Scientist 

1% 

1 

Industrial  Engineer 

1% 

1 

Mathematician 

1% 

1 

Engineering  Services 

4.  If  you  are  involved  with  signal  processing,  what  best  describes  your  area  of  sub¬ 

specialty? 


10% 

15 

0  Speech  Processing 

2% 

3 

0  Biomedical  Processing 

14% 

21 

0  Image  Processing 

21% 

31 

0  Radar  /  Sonar  /  Array 
Processing 

11% 

16 

0  Computer  Processing 

27% 

39 

0  Digital  Processing 

12% 

18 

0  Comm.  Processing 

2% 

3 

0  Networking 

5. 

"What 

is  your  association  with  the  IEEE? 

22% 

25 

0  Not  a  Member 

11% 

13 

0  Senior  Member 

23% 

27 

0  Student  Member 

6% 

7 

0  Fellow 

37% 

43 

0  Member 

6.  How  are  you  participating  in  this  conference? 
7%  9  O  Attending 


10% 

12 

0  45  to  54  years 

old 

9% 

11 

0  55  to  64  years 

old 

1% 

1 

0  over  65  years  old 

154 


83%  105  O  Presenting  an  article 

10%  13  O  Session  Chair 

7.  In  the  preceding  12  months,  how  often  did  you  attend  a  professional  conference? 


16% 

19 

0  None 

3%  4 

0  6-8  times 

44% 

52 

01-2  times 

0  9-11  times 

36% 

43 

0  3-5  times 

0  12  or  more  times 

8.  Which  word  processor  do  you  use  most  often  when  writing  professional  work 
(articles,  technical  memos,  etc.)? 


07% 

8 

0  WordPerfect 

0 

0  Amipro 

20% 

25 

0  Microsoft  Word 

08%  10 

0  Framemaker 

57% 

70 

OTeX 

0  Other: 

02%  3  Publisher 

02%  2  Interleaf 

01%  1  Wordstar 

01%  1  TROFF 

01%  1  Scientific 

word 

01%  1  Windows  XP 


9.  What  type  of  electronic  on-line  access  do  you  have  at  this  time? 

(Due  to  multiple  answers  by  respondents,  percentages  are  not  included) 


104 

0  World-Wide-Web  access 

0  1  have  local  e-mail  on  a 
LAN 

45 

94 

0  1  have  a  WWW  home  page 

0  1  have  Internet  FTP  access 

0  I’m  not  sure 

1 

107 

0  1  do  not  have  any  on-line  access  at  this  time 

0  1  have  Internet  e-mail  access 

10.  What  type  of  electronic  on-line  access  do  you  expect  to  have  12  months  from 
now? 

(Due  to  multiple  answers  by  respondents,  percentages  are  not  included.) 


96 

0  World-Wide-Web  access 

0  local  e-mail  on  a  LAN 

63 

0  a  WWW  home  page 

0  I’m  not  sure 

82 

0  Internet  FTP  access 

12 

0  1  will  not  have  any  on-line  access 

94 

0  Internet  e-mail  access 

11.  If  you  have  World-Wide-Web  access,  what  browser(s)  do  you  use  (select  all  that 

apply)? 
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(Due  to  multiple  answers  by  respondents,  percentages  are  not  included.) 

99  O  Netscape  Navigator  O  PSINet  Pipeline 

27  O  Spyglass  Mosaic  2  O  Netcruiser 

3  O  America  Online  Browser  O  Quarterdeck  Internet  Suite 

O  COMPUSERVE  Browser  1  O  Tradewind  WINWeb  / 
MACWeb 

O  Prodigy  Browser  2  O  Microsoft  Win95  Browser 

O  Cybetjack  O  Other: 

4  NCSA  Mosaic 


12. 

If  you  have  on-line  access,  what  is  the  highest  data  rate  you  normally  use? 

3% 

3 

0  <  9600  Bps  Modem 

4% 

5 

0  28.8  KBps  Modem 

3% 

3 

0  9600  Bps  Modem 

30% 

35 

0  greater  than  28.8  (ISDN, 
TI.etc) 

21% 

25 

0  14.4  KBps  Modem 

39% 

46 

0 1  access  the  Internet 
through  a  LAN  and  do  not 
know  what  data  rate  1  use. 
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With  respect  to  the  professional 
conferences  you  attend,  please  rate 
how  likely  you  would  be  to  use  the 
following  capabilities,  if  they  were 
available  on-line.  Assume  that  you 
have  the  required  technical  capabilities 
and  tools. 


1  2  3 

Very  Unlikely  Not 
Unlikely  Sure 


4  5 

Likely  Very 
Likely 


1 1 .  Retrieve  Registration  forms 
and  information. 

Avg:  4.30 


1  2  3  4  5 

O  0  0  0  0 

10  3  3  25  74 


12.  Submit  an  article  abstract  to  be 

considered  for  presentation  at  1 

the  conference.  O 

Avg:  4.32  8 


2  3  4  5 

0  0  0  0 

4  6  22  75 


1 3 .  Preview  article  abstracts  that 

have  been  selected  for  1 

presentation  at  the  conference.  O 

Avg:  4.17  10 


2  3  4  5 

0  0  0  0 

3  8  31  63 


14.  Send  comments  about  an 

article  that  has  been  selected 
for  presentation  at  the 
conference  to  the  author. 

Avg:  3.51 


I  2  3  4  5 

O  0  0  0  0 

II  8  37  28  30 
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APPENDIX  E.  ARTICLE  SUBMISSION  SUB-SYSTEM  CODE 


This  appendix  contains  the  HTML  and  Delphi  code  for  the  HTML  documents  and 
Delphi  executables  that  comprise  the  Article  Submission  Sub-system.  The  relationships  of 
the  programs  are  depicted  in  Figure  E-1. 
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Index 


.htm 


lntrol0.htm 


Manual  11. htm  lTifol2.htm  Searchl3|.htm 

ExtSumnLhtm 


D13.exe 


AuthI3.12.htin 


Multil32.exe 


D_Submitexe 


DPaper.exe 

D2paper.exe 


Figure  E-1.  Article  Submission  Sub-system. 
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Author  submission  sub-system  introduction:  IntrolO.htm 


<HTML> 

<HEAD> 

<TITLE>Asilomar  Signals,  Systems,  and  Computers</nTLE> 

</HEAD> 

<BOD  Y  bgcoloi=FFFFFF> 

<centerxH2>Asilomar  Conference  on<BR> 

Signals,  Systems,  &  Computers</centerx/H2> 

<Hl>Electronic  Submission  Infonnation</Hl> 

<P>Authors  wishing  to  submit  an  article  to  the  Asilomar 
Conference  on  Signals,  Systems,  &  Computers  via  on-line 
submission  not  only  save  the  cost  of  an  envelope  and  a  stamp, 
they  help  us  keep  down  the  cost  of  the  conference  by  reducing  the 
administrative  burden  on  our  staff. 

<PxA  HREF— '#Capabilities"xB>What  capabilities  do  I  need  to  submit  my  Article  on- 
line?</Bx/A> 

<PxA  HREF="#Procedures"xB>What  are  the  procedures  to  submit  my  Article  on- 
line?</Bx/A> 

<PxA  HREF="searchl3.htm"xB>I  am  ready  to  submit  my  article  on-line !</Bx/A> 

<BR> 

<A  NAME="Capabilities"> 

</AxhrxB>\^hiat  capabilities  do  I  need  to  submit  my  Article  on-line?</B> 

<P>Authors  wishing  to  submit  an  article  on-line  need  the  following 
capabilities: 

<OL> 

<li>Intemet  access; 

<li>Forms  capable  Web  Browser  (HTML  3  or  better); 

<li>FTP  upload  software 
<ul> 

<lixli>Download  <a  href="../files/ws_ftp.zip"  >Windows  3.x  (16-bit)  FTP  software  </a> 
NOW! 

<lixli>Download  <a  href="../files/ws_ftp32.zip"  >Windows  95  or  NT  (32-bit)  FTP  software 
</a>NOW! 

</ulx/ol> 

<hr> 

<A  NAME="Procedures"> 
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</A><b>What  are  the  procedures  to  submit  my  Article  on-line?</B> 

<P>Submitting  an  article  on-line  to  the  Conference 
is  done  in  the  following  steps: 

<OL> 

<li>Ensure  you  have  FTP  software,  download  it  above  if  necessary. 

<BR> 

<li>Select  "Submit  an  article"  at  the  bottom  of  this  page.  The  forms  presented  will  allow  you  to: 
<UL> 

<lixli>Ensure  that  the  information  about  you  is  accurate  in  our  database;  and 
<li><li>Submit  the  information  about  your  paper  (Title,  Keywords,  Abstract,  and  other 
Authors); 

</ulxBR> 

<i>Note:  if  you  have  already  received  a  registration  number,  user  E)  and  password,  the  above 
steps  should  be  complete.</i> 

<BR> 

<li>Finally,  submit  an  <A  HREF=extsumm.htm>Extended  Summary</A>  for  your  paper  via 
FTP. 

<UL> 

<li><li>Extended  summaries  must  be  in  Post  Script  (.PS)  or  ASCII  (.txt)  format 
<lixli>The  filename  of  your  summary  should  be  your  registration  number;  e.g.  "101. PS" 
would  be  a  valid  filename. 

</ULx/OL> 

<center> 

<P><hrxA  NAME="Submit"> 

</A><h3>rm  ready  to  <A  HREF="searchl3.htm">submit  my  Article  on-line !</Ax/h3> 
</centerxPxhr> 

<IMG  SRC="asil2b0.gif "  align=left  alt="Asilomar  facility"> 

Return  to  the  <A 

HREF="http://131.120.20.70/Index.html">Asilomar  Conference  On-line  Submission  Page</A> 
</BODY> 

</HTML> 
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Extended  Summary  page;  Extsumin.htm 


<HTML> 

<HEAD> 

<TrrLE>Asilomar  Signals,  Systems,  and  Computers</TITLE> 

</HEAD> 

<BODY  bgcolor=FFFFFF> 

<centerxH2>Asilomar  Conference  on<BR> 

Signals,  Systems,  &  Computers</centerx/H2> 

<Hl>What  is  the  Extended  Summaiy?</Hl> 

<P>An  extended  summary  is  a  concise  summary  of  the  significance  of  the  submitted  paper.  It's 
length  should  be 

500  to  1000  words  and  can  include  figures.  The  extended  summary  will  be  used  to  evaluate  the 
paper 

for  significance  and  originality. 

<P>For  electronic  submission,  the  extended  summary  should  be  saved  in  Postscript  Format  and 

should  include  the 

Paper  Title  and  the  Author's  name. 

<PxhrxP> 

<IMG  SRC="asil2b0.gif "  align=left  alt="Asilomar  facility"> 

Return  to  the  <A 

HREF="http://13 1 . 120.20.70/Index.html">Asilomar 
Conference  On-line  Submission  Page</A> 

</BODY> 

</HTML> 
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Manual  submission  information  page;  Manualll.htm 


<HTML> 

<HEAD> 

<TITLE>Asilomar  Signals,  Systems,  and  Computers</TrrLE> 

</HEAD> 

<BODY  bgcolor=FFFFFF> 

<centerxH2>Asilomar  Conference  on<BR> 

Signals,  Systems,  &  Computers</centerx/H2> 

<Hl>Manual  Submission  Information</Hl> 

<P>Authors  wishing  to  submit  an  article  to  the  Asilomar  Conference  on  Signals,  Systems,  & 
Computers  via  mail  must 

submit  four  copies  of  the  abstract  (50  to  100  words)  and  four  copies  of  the  extended  summary 
(500  to  1000  words  plus  figures  and  tables).  Submissions 
must  include;<ul> 

<LI>Paper  Information:  title,  each  author’s  name  and  affiliation,  and  the  technical  area(s)  with 
number(s)  from  the  list  provided  on  the 

<A  HREF="http://dubhe.cc.nps.navy.mil/~asilomar/asil96/call3.html  ">  "Call  for 
Papers.  "</AxBR> 

<LI>Point  of  Contact  information:  name,  full  address,  telephone/fax  numbers  and  e-mail 
address.  <BR> 

<LI> Abstract;  on  a  separate  page,  a  camera  ready  copy  of  the  abstract  headed  by  the  title, 
author's  names  and  affiliations  for  printing  in  an 

Abstract  Book  which  will  be  available  at  the  Conference.  The  type  used  must  be  clear  and 
readily  legible,  and  all  information  (including  title, 

author's  names  and  affiliations)  must  fit  within  a  2.75"  high  by  6.5"  wide  format  for  printing  in 
the  Abstract  Book.</UL> 


<P>  Submissions  should  be  sent  to;<ul> 

Asilomar  Conference  Technical  Program  Chairman<BR> 
do  ECE  Department,  Code  EC<BR> 

Naval  Postgraduate  School<BR> 

833  Dyer  Road,  Room  437<BR> 

Monterey,  CA  93943-5121</lJLxBR> 

<h3>In  the  future</h3> 

Please  consider  submitting  your  articles  via 

our  on-line  submission  process.  Not  only  does  it  save  you  the 
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cost  of  an  envelope  and  a  stamp,  it  helps  us  keep  the  cost  of  the 
conference  lower  by  reducing  the  administrative  burden  on  our  staff.  <BR> 


<P><hrxP> 

<IMG  SRC="asil2b0.gif "  align=left  alt="Asilomar  facility"> 
Return  to  the  <  A 

HREF="http://13 1 . 120.20.70/Index.html">Asilomar 
Conference  On-line  Submission  Page</A> 

</BODY> 

</HTML> 
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Submit  information  on-line:  Searchl3.htm 


<HTML> 

<HEAD> 

<TITLE>Asilomar  Signals,  Systems,  and  Computers</TITLE> 

</HEAD> 

<BODY  bgcolor=FFFFFF> 

<center><H2>Asilomar  Conference  on<BR> 

Signals,  Systems,  &  Computers</H2x/center> 

<Hl>Contact  Author  Information</Hl> 

<P>  First  we  need  to  get  some  information  about  the  "contact 
author."  Remember  that  if  the  paper  has  only  <emp>one<emp> 
author,  the  "contact  author"  is  the  author.  But  if  there  are 
<emp>multiple<emp>  authors,  the  "contact  author"  is  the  one  whom 
will  be  the  point  of  contact  for  the  purpose  of  this  conference. 

<P>  To  determine  whether  you  are  currently  in  our  database, 
please  enter  your  name  below: 

<FORM  METHOD="POST"  ACTION="../cgi-win/D13.exe  "> 

<HR> 

<B>First  Name:  </B><INPUT  NAME="first"  Size="20"  TYPE="TEXTt"> 
<B>Last  Name:  </B><INPUT  NAME="last"  Size="20"  TYPE="TEXT"> 
<B>Middle  Initial:  </BxINPUT  NAME="initial"  Size="2"  TYPE="TEXT"> 

<PxCENTERxINPUT  TYPE="submit"  Value="submit  author"> 

<INPUT  TYPE="reset"  VALUE="Clear  this  form"></CENTER> 

<P><hr><P> 

<IMG  SRC- 'asil2b0.gif "  align=left  alt="Asilomar  facility"> 

Return  to  the  <A 

HREF="http://l 3 1 . 1 20.20.70/Index.htmr'>Asilomar 
Conference  On-line  Submission  Page</A> 

</BODY> 

</HTML> 
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iinitD_13; 

interface 


The  database  query  page:  D13.exe 


uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgidb,  Cgi; 

type 

TForml  =  class(TForm) 

Authors:  TTable; 

DataSourcel:  TDataSource; 

Query  1:  TQuery; 

CGIEnvDatal:  TCGIEnvData; 

CGIDB  1:  TCGIDB; 

QuerylFName:  TStringField; 

QuerylLName:  TStringField; 

Query  lANumber:  TIntegerField; 

Queryllnitial:  TStringField; 

Query  1  Honorific:  TStringField; 

Query  1  Institution:  TStringField; 

Query  1  Department:  TStringField; 

Query  IMailstop:  TStringField; 

Query  lAddress  Street:  TStringField; 

QuerylAddress_City:  TStringField; 

Query lAddress  Zip:  TStringField; 

Query  1  Country:  TStringField; 

Query lPhone_LocalNumber:  TStringField; 
QuerylPhone_FaxNumber:  TStringField; 

QuerylEmail:  TStringField; 

QuerylAddress_State:  TStringField; 

procedure  FormCreate(Sender:  TObject); 
procedure  CGIDB  10nSendingHotField(currentRecord:  TDataset; 
var  s:  OpenString); 

private 

{ Private  declarations  } 
public 

{ Public  declarations  } 
end; 

var 

Forml:  TForml; 
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function  MixCaseStr(S:  string):  string; 
implementation 
{$R  *.DFM} 

fimction  MixCaseStr(S:  string):  string; 

{  This  function  converts  a  string  to  Mixed  case. 

That  is  Capital  first  letter  and  the  rest  lower  case.  } 
var 

i:  integer; 
begin 

if  (S[l]  >=  'a')  and  (S[l]  <=  'z')  then 

Dec(S[l],  32); 

for  i  :=  2  to  Length(S)  do 

if  (S[i]  >=  'A')  and  (S[i]  <=  'Z')  and  (S[i-l]o' ')  and  (S[i-l]o’e’)  and  (S[i-l]o'-')  and  (S[i- 
l]o'c')  then 
Inc(S[i],32); 

MixCaseStr  :=  S; 

end; 


procedure  TForml.FonnCreate( Sender:  TObject); 
var 

counter:  integer; 
dFNamein:  string; 
dLNamein:  string; 
dinitialin:  string; 


dFName:  string; 
dLName:  string; 
dinitial:  string; 

dbANumber:  string; 
dbFName:  string; 
dbLName:  string; 
dblnitial:  string; 
dbHonorific:  string; 
dblnstitution:  string; 
dbDepartment:  string; 
dbMailstop:  string; 
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dbAddress  Street:  string; 
dbAddress_City:  string; 
dbAddress  State:  string; 
dbAddress_Zip:  string; 
dbCountiy:  string; 
dbPhone  LocalNumber:  string; 
dbPhone  FaxNumber;  string; 
dbEmail:  string; 


TC;  TDataSet; 
begin 

with  CGIEnvDatal  do 
begin 

webSiteINIFilename:=paramstr(  1 ); 
application.onException:=cgiErrorHandler; 
application.  processMessages; 

createStdout; 
sendPrologue; 

dFNamein—  getsmallfield  ('first'); 
dLNamein—  getsmallfield  ('last'); 
dlnitialin:=  getsmallfield  ('initial'); 

dFName:=  MixCaseStr  (dFNamein); 
dLName:=  MixCaseStr  (dLNamein); 
if  (dlnitialin[l]  >=  'a')  and  (dlnitialin[l]  <=  'z')  then  begin 
Dec(dlnitialin[l],  32); 

dinitial”  dinitialin;  {  Convert  Middle  Initial  to  upper  case  } 

end 

else  dlnitial:=  dinitialin; 

send  ('<HTMLxHEAD>');  {  } 

SendTitle('Asilomar  Signals,  Systems,  and  Computers');  { Every  page  gets  this  } 
send  ('</HEADxBODY  bgcoloi=FFFFFF>');  {  } 

end; 

counter  :=  0; 

with  Query  1  do  {Check  the  database  for  the  author  First  and  Last  name} 

begin 
close; 


(  > 

{  Get  fields  from  search  page  } 

} 

{  Convert  First  Name  to  mixed  case  } 
{  Convert  Last  Name  to  mixed  case  } 
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sql.  clear; 

if  (dLName  o ")  and  (dFName  o ")  then 

sql.add('Select*FROM  Author  WHERE  LName  = +  dLName  + ""  +  'AND  FName  = + 
dFName +  "") 

else  if  (dFName  = ")  then  sql.add('Select*FROM  Author  WHERE  LName  = +  dLName 

+ 

open; 

fieldByName('ANumber').displayLabel:=Number'; 

fieldByName('FName').displayLabel:=TirstName'; 

fieldByName('LName').displayLabel:-LastName'; 

fieldByName('Initiar).displayLabel:='MI'; 

fieldByName('Honorific').displayLabel:-Title'; 

fieldByName('Institution').displayLabel:-  Institution  Name '; 

fieldByName(Department').displayLabel:='  Department  Name '; 

Authors.  Open; 

Authors.First; 

dbANumber  ;=  fieldByName('ANumber').  Asstring; 
dbFName  ;=  fieldByName('FName').AsString; 
dbLName  :=  fieldByNameCLName').  AsString; 
dblnitial  :=  fieldByName(1nitiar).AsString; 
dbHonorific  :=  fieldByName('Honorific').AsString; 
dblnstitution  :=  fieldByName('Institution').  AsString; 
dbDepartment  :=  fieldByName(’Department').AsString; 
dbMailstop  ;=  fieldByName('Mailstop').AsString; 
dbAddress_Street  :=  fieldByName('Address_Street').AsString; 
dbAddress_City  :=  fieldByName('Address_City').AsString; 
dbAddress_State  :=  fieldByName('Address_State').AsString; 
dbAddressZip  :=  fieldByName('Address_Zip').AsString; 
dbCountry  :=  fieldByName('Country’).AsString; 

dbPhone_LocalNumber  ;=  fieldByName(Phone_LocalNumber').AsString; 
dbPhoneJFaxNumber  :=  £ieldByName(Thone_FaxNumber').AsString; 
dbEmail  :=  fieldByName(Emair). AsString; 

counter  ;=  Recordcoimt;  {How  many  records  were  returned} 

Authors.Close; 

end; 


with  cgiEnvDatal  do  {Output  the  results  of  the  query} 

begin 

if  counter  =  0  then  begin  {No  records  returned} 

send('<centerxHl>Add  New  Author  Information</Hl></center>'); 
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send  ('<P>  Your  name  was  not  found  in  our  current  database.  Please  provide'); 
send  ('  the  following  information  so  we  will  be  able  to  contact  you.<HR>'); 


send('<PxFORM  ACTION="addl  32.exe’'  METHOD="POST">'); 
send('<B>First  Name;  </BxINPUT  NAjME="FName"  Size="25"  TYPE="text" 
VALUE='"+  dFName 

sendC<B>  Last  Name:  </BxINPUT  NAME="LName"  Size="25"  TYPE="text" 
Value="'  +  dLName 

send('<B>  Middle  Initial:  </BxlNPUT  NAME="Initial"  Size="2"  TYPE="text"  Value="' 
+  dinitial  +"'xHR>’); 

send('<B>Honorific  Title:</BxlNPUT  NAME="Honorific"  Size="5"  TYPE="text">'); 
send('<PxB>Institution:  </BxINPUT  NAME="Institution"  Size="60" 
TYPE="text">’); 

send('<brxB>Department:  <^xINPUT  NAME="Department"  Size="60" 
TYPE="text">'); 

send('<br><B>Mail  Stop:  </BxINPUT  NAME-'Mailstop"  Size="30" 
TYPE="text">’); 

send('<PxB>Street  address:  </BxINPUT  NAME="Address_Street"  Size="40" 
TYPE="text’'>’); 

send('<brxB>City:  </BxINPUT  NAME="Address_City"  Size="20" 

TYPE="text">'); 

send('<B>State:  </BxINPUT  NAME=" Address_State"  Size="  1 8"  TYPE="text">’); 

send('<brxB>Zip  Code;  </BxINPUT  NAME— 'Address_Zip"  Size="10" 
TYPE="text">'); 

send('<B>Country:  </BxINPUT  NAME="Country"  Size="25"  TYPE="text" 

VALUE="USA">'); 

send('<PxB>Telephone  number  (with  Area/Country  codes):  </BxlNPUT 
NAME="Phone_LocalNumber"  Size="21"  TYPE="text">'); 

send('<brxB>Fax  number  (with  Area/Country  codes):  </BxlNPUT 

NAME="Phone_Faxnumber"  Size="21"  TYPE="text">’); 

send('<brxB>E-mail;  </BxINPUT  NAME="Email"  Size="50"  TYPE="text">'); 

send('<P><CENTERxINPUT  TYPE="submit"  Value="Submit  New  Information"> 
<INPUT  TYPE="reset’"); 

send(’VALUE="Clear  this  form"x/CENTER>’); 
end 

else  if  counter  =  1  then  begin  {Only  one  record  returned} 

send('<centerxHl>Edit  Author  Information</Hlx/center>'); 

send  ('<P>We  have  located  your  record  in  the  database.  Please  ensure  that'); 

send  ('  your  record  is  up-to-date  by  reviewing  the  information  below  and'); 

send  ('  making  any  changes  that  are  necessary.  For  your  protection,  changes  are  not'); 

send  ('  made  a  part  of  the  permanent  record  until  verified  by  our  staff.  <BRxHR>'); 
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send('<P><FORM  ACTION="editl32.exe"  METHOD="POST">'); 
send(’<INPUT  NAME="ANumber"  TYPE="hidden"  Value="'+  dbANumber 
send('<B>First  Name;  </BxlNPUT  NAME="FName"  Size='’25'’  TYPE="text" 
VALUE="’+  dbFName 

send('<B>  Last  Name:  </B><INPUT  NAME="LName"  Size="25"  TYPE="text" 

Value="'  +  dbLName 

sendC<B>  Middle  Initial:  </B><INPUT  NAME="Initial''  Size="2"  TYPE=’'text"  Value="' 
+  dblnitial  +"’><HR>'); 

send('<B>Honorific  Title:</BxINPUT  NAME="Honorific"  Size="5"  TYPE="text" 
Value=’"  +  dbHonorific 

send('<P><B>Institution:  </B><INPUT  NAME="Institution"  Size="60"  TYPE="text"'); 
send('  Value="'  +  dblnstitution 

send('<brxB>Department:  </BxINPUT  NAME="Department"  Size="60" 
TYPE="text"  Value="’  +  dbDepartment 

sendC<brxB>Mail  Stop:  </BxlNPUT  NAME="Mailstop"  Size="30"  TYPE="text" 
Value="’  +  dbMailstop 

send('<P><B>Street  address:  </BxINPUT  NAME=”Address_Street"  Size="40" 
TYPE="text"'); 

send('Value="'  +  dbAddress_Street 

send('<brxB>City;  </B><INPUT  NAME="Address_City"  Size="20"  TYPE="text" 
Value="'  +  dbAddress_City 

send('<B>State:  </BxINPUT  NAME="Address_State"  Size="2"  TYPE="text" 

Value=’"  +  dbAddress_State 

send(’<br><B>Zip  Code:  </BxINPUT  NAME="Address_Zip"  Size="10" 
TYPE="text"  Value="'  +  dbAddress_Zip 

send('<B>Coimtiy;  </BxINPUT  NAME="Country''  Size="25"  TYPE="text" 
Value="'  +  dbCoimtiy  +'">  '); 

send('<PxB>Telephone  number  (with  Area/Countiy  codes):</BxINPUT 
NAME="Phone_LocalNumber"  Size="2 1 

sendC  TYPE="text"  Value=’"  +  dbPhone_LocalNumber 
send('<brxB>Fax  number  (with  Area/Country  codes):  </BxINPUT 
NAME="Phone_Faxnumber”  Size="2 1 

sendC  TYPE="text"Value="’  +  dbPhone_FaxNumber 

send('<brxB>E-mail:  </B><INPUT  NAME="Emair’  Size="50"  TYPE="text" 

Value="'  +  dbEmail 

send('<p>The  database  has  found  a  unique  entry  based  on  the  first  and  last'); 
sendC  name  you  submitted.  If  you  believe  this  entry  refers  to  another '); 
sendCperson,  then  you  have  two  choices:'); 
send('<ul><li>If  you  might  have  used  another  name,  then  <a 
href=" . .  /prototype/ search  1 3  .htm">'); 

send('Go  back  and  re-submit  your  query;  </a>  or'); 

send('<li>If  this  is  your  name  but  this  is  not  your  record,  then  <a  href="../cgi- 
win/authl32.exe">'); 

sendC  Add  your  name  to  our  records.</a></ul>'); 
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send('<P>If  this  entry  does  refer  to  you,  please  review  the  information  and  update  it  as 
necessary, '); 

send('then  click  on  "Submit  Information"  below<BR>'); 

send('<P><CENTERxlNPUT  TYPE- ’submit"  Value="Submit  Information">  <INPUT 
TYPE="reset"’); 

send(’VALUE="Reset  to  Original  Information"x/CENTERx/fomi>’); 

sendC<PxFORM  ACTION="d_submit.exe"  METHOD="POST">’); 
send ('<INPUT TYPE-'hidden"  Name-'ANumber"  Value="'  +  dbANumber 
send('<PxCENTERxINPUT  TYPE="submit"  Value="NO  changes  necessary  -  ALL 
data  is  correct!  "></CENTER></form>'); 
end 

else  begin  {more  than  one  record  returned} 

send  ('<centerxH2>Asilomar  Conference  on<BR>'); 
send  ('Signals,  Systems,  &  Computers</center></H2>'); 
send('<PxHRxCenter>'); 

CGIDB 1  .drawTable; 

Query  1.  close; 
send  ('</center><p>'); 

send('The  database  has  formd  more  than  one  entry  that  matches  your  first'); 
sendC  and  last  name.  If  your  name  is  on  the  list  then  click  on  the  "Author  Number"  which 
is'); 

send('  to  the  right  of  your  name.'); 

send('<p>If  you  believe  your  record  may  be  under  another  name,'); 

sendC  you  may  <a  hreP=".. /prototype/search  1 3. htm">Resubmit  your  name</a>.'); 

send('<p>If  this  is  your  name  but  your  record  does  not  appear  here,'); 

send('  you  may  <a  hre^"../cgi-win/authl32.exe">Add  your  name  to  our  records.</a>'); 

end; 

{ HTML  page  Footer } 

send('<PxhrxPxIMG  SRC— '../prototype/asil2b0.gif "  align=left  al1^"Asilomar 
facility">'X 

send(Retum  to  the  <A  HREF="http;//131. 120.20.70/Index.html">Asilomar'); 

send('Conference  On-line  Submission  Page</A>'); 

send  (’</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 

end;  {with  cgiEnvDatal  do} 

end;  {Procedure  TForml.FormCreate} 


procedure  TForml.CGIDB10nSendingHotField(currentRecord:  TDataset; 
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var  s:  OpenString); 


begin 

s:-<A  HREF="../cgi-win/inultl32.exe?'+  cuiTentrecord.fieldbyName('ANumber’).AsString  + 
+  currentrecord.FieldbyName('ANumber’).  AsString  +  '</A>'; 
end;  {Procedure  TForml.CGIOnSendingHotField} 
end. 
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Add  New  Author  Information  page:  Addl32.exe 


unit  D132add; 

{  WHEN  CALLED:  This  program  is  activated  from  D13.exe  when  the  author  name  is  not 
found  in  the  AUTHOR  Table  **  OR  **  from  authl312.htm  when  adding  a  new  instance  of 
the  author  name  (a  new  person  with  the  same  name)}. 


interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DBTables,  DB; 

type 

TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

Authors;  TTable; 

CGDEnvDatal:  TCGEEnvData; 

CGIDB  1:  TCGIDB; 

procedure  FormCreate(Sender;  TObject); 


private 

{ Private  declarations } 
public 

{ Public  declarations } 
end; 

var 

Forml:  TForml; 

dANumberstring; 
dFName:  string; 
dLName:  string; 
dinitial:  string; 

dFNamein:  string; 
dLNamein;  string; 
dinitialin:  string; 

dHonorific;  string; 
dinstitution;  string; 
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dDepartment:  string; 
dMailstop:  string; 
dAddress_Street:  string; 
dAddress_City;  string; 
dAddress_State:  string; 
dAddress  Zip:  string; 
dCountiy;  string; 
dPhone  AreaCode:  string; 
dPhone  LocalNumber;  string; 
dPhone  FaxNumber:  string; 
dEmail:  string; 

function  MixCaseStr(S:  string):  string; 


implementation 
{$R  *.DFM} 

^  :]c ^  ^  He  He  4: 4:  ^  ^  31: 4:  ^  4:  sic ^  %  :ie  sf:  ^  ^  :|e  4:  *  ^  ^  4: 3ie  4e  ^ 

function  MixCaseStr(S:  string):  string; 

{  This  function  converts  a  string  to  Mixed  case. 

That  is  Capital  first  letter  and  the  rest  lower  case.  } 
var 

i:  integer; 
begin 

if  (S[l]  >=  'a')  and  (S[l]  <=  V)  then 

Dec(S[l],32); 

for  i  :=  2  to  Length(S)  do 

if  (S[i]  >=  W)  and  (S[i]  <=  'Z')  and  (S[i-l]o' ')  and  (S[i-l]o'-')  and  (S[i-l]o'c')  then 
Inc(S[i],32); 

MixCaseStr  :=  S; 

end; 

I  sje  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  H:  He  He  He  He  He  He  He  H:  He  He  He  He  He  I 

procedure  TForml.FormCreate(Sender:  TObject); 
begin 


with  CGIEnvDatal  do  begin 

(Standard  Header} 
webSiteINIFilename:=paramstr(  1 ); 
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application.onException:=cgiErrorHandler; 
application.  processMessages; 
createStdout; 
sendPrologue; 

{Get  data  from  FORM) 

dFNamein:=  getsmallfield  (TName'); 
dLNamein:=  getsmallfield  (LName'); 
dinitialin—  getsmallfield  ('Initial'); 

dFName:=  MixCaseStr  (dFNamein);  {  Convert  First  Name  to  mixed  case  } 

dLName~  MixCaseStr  (dLNamein);  {  Convert  Last  Name  to  mixed  case  } 

if  (dlnitialin[l]  >=  'a')  and  (dlnitialin[l]  <=  'z')  then  begin 
Dec(dlnitialin[l],  32); 

dinitial”  dinitialin;  {  Convert  Middle  Initial  to  upper  case  } 

end 

else  dlnitial:=  dinitialin; 

dHonorific:=  getsmallfield  CHonorific'); 
dInstitution:=  getsmallfield  ('Institution'); 
dDepartment:=  getsmallfield  (Department'); 
dMailstop:=  getsmallfield  CMailstop'); 
dAddress_Street:=  getsmallfield  ('Address_Street'); 
dAddress_City:=  getsmallfield  ('AddressCity'); 
dAd(fress_State;=  getsmallfield  ('AddressState'); 
dAddress_Zip:=  getsmallfield  ('Address_Zip'); 
dCoxmtry:=  getsmallfield  ('Country'); 

dPhone_LocalNumber;=  getsmallfield  ('PhoneLocalNumber'); 
dPhone_FaxNumber:=  getsmallfield  ('PhoneFaxnumber'); 
dEmail:=  getsmallfield  CEmail'); 

(Append  data  to  AUTHOR  Table} 

Authors,  open; 

Authors.AppendRecord([nil,  dFName,  dLName,  dinitial,  dHonorific,  dinstitution, 
dDepartment,  dMailstop, 

dAddressStreet,  dAddressCity,  dAddressState,  dAddressZip,  dCountry, 
dPhoneLocalNumber,  dPhone_FaxNumber,  dEmail]); 

Authors,  close; 

{Get  the  Author  number  for  the  new  record  } 

Authors.open; 

Authors,  last; 

dAN[umber;=Authors.fieldbyname('ANumber').asstring; 

Authors.close; 
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{Send  the  Thankyou  Paper  page  with  the  link  to  ADD  Paperl32.htm  } 
send  ('<HTMLxHEAD>’); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  C</HEADxBODY  bgcolor=FFFFFF>'); 
send  ('<centerxH2>Asilomar  Conference  on<BR>'); 
send  CSignals,  Systems,  &  Computers</H2>’); 
send('<P><HR>’); 

send  ('<P>Thank  you  for  your  input '  +  dHonorific  + ' '+  dFName  +' '+  dLName  +'. '); 
send  ('Your  information  has  been  added  to  our  records.'); 

send  ('<FORM  ACTION=''../cgi-win/d_submit.exe"  METHOD="POST">’); 
send  ('<INPUT  TYPE="hidden"  Name="ANumber"  Value='"  +  dANumber  +'">'); 
send  ('<P><INPUT  TYPE=" submit"  Value-'Continue  with  the  Submission  Process">'); 
send  ('</CENTER>'); 

send('<PxhrxPxlMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar 
facility">'); 

send(Retum  to  the  <A  HREF="http://131. 120.20.70/index.html">Asilomar'); 
send('Conference  On-line  Submission  Page</A>'); 
send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application );  {  don't  leave  form  aroimd  } 
end;  (with  CGIEnvDatal} 
end;  {FormCreate} 
end. 
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Edit  Author  information  page:  Editl32.exe 


unit  D132edit; 

{  WHEN  CALLED:  This  program  is  activated  from  D13.exe  when  the  author  name  is 
found  in 

the  AUTHOR  Table  } 


interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DB,  DBTables; 

type 

TForml  =  class(TForm) 

DataSourcel;  TDataSource; 

CGIEnvDatal :  TCGEEnvData; 

CGIDBl:  TCGIDB; 

TempAuthor;  TTable; 

procedure  FormCreate(Sender:  TObject); 


private 

{ Private  declarations  } 
public 

{ Public  declarations } 
end; 

var 

Forml:  TForml; 

dANumber:  string; 
dANumberint:  integer; 
dFName:  string; 
dLName:  string; 
dinitial:  string; 
dHonorific:  string; 
dinstitution:  string; 
dDepartment;  string; 
dMailstop:  string; 
dAddress  Street:  string; 
dAddress  City:  string; 
dAddress  State:  string; 
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dAddress  Zip:  string; 
dConntry:  string; 
dPhone_AreaCode:  string; 
dPhone  LocalNumber:  string; 
dPhone  FaxNumber:  string; 
dEmail:  string; 


implementation 

{$R*.DFM} 

procedure  TForml.FormCreate(Sender:  TObject); 
begin 

with  CGIEnvDatal  do 
begin 

{Standard  Header} 

webSiteINIFilename:=paramstr(  1 ); 

application.  onException:=cgiErrorHandler; 

appIication.processMessages; 

createStdout; 

sendPrologue; 

dANumber:=  getsmallfield  ('ANumber'); 
dFNarne—  getsmallfield  ('FName'); 
dLName:=  getsmallfield  CLName'); 

dlnitial:=  getsmallfield  ('Initial'); 
dHonorific:=  getsmallfield  (Honorific'); 
dInstitution;=  getsmallfield  (Institution'); 
dDepartment”  getsmallfield  (Department'); 
dMailstop:=  getsmallfield  CMailstop'); 
dAddress_Street;=  getsmallfield  ('Address_Street’); 
dAddress_City;=  getsmallfield  ('Address_City'); 
dAddress_State:=  getsmallfield  ('AddressState'); 
dAddress_Zip:=  getsmallfield  ('Address_Zip'); 
dCountry;=  getsmallfield  ('Coimtry'); 

dPhoneLocalNumber—  getsmallfield  (PhoneLocalNumber'); 
dPhone_FaxNumber:=  getsmallfield  (PhoneFaxnumber'); 
dEmail:=  getsmallfield  CEmail'); 

dANumberint:=  StrToInt(dANumber);  {  Convert  the  dANumber  back  to  an  integer  } 
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with  TempAuthor  do  begin 


{Open  TempAuthor  table  and  append  new  record  } 

open; 

AppendRecord([nil,  dANumberint,  dFName,  dLName,  dinitial,  dHonorific,  dinstitution, 
dDepartment,  dMailstop, 

dAddressStreet,  dAddressCity,  dAddress_State,  dAddressZip,  dCountiy, 

dPhoneJLocalNumber,  dPhoneFaxNumber,  dEmail]); 

close; 

end;  {with  TempAuthor)  . 

{Send  the  Thankyou  Paper  page  with  link  to  ADD  Paperl32.htm  } 
send  C<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  ('</HEADxBODY  bgcolor=FFFFFF>'); 
send  ('<centerxH2>Asilomar  Conference  on<BR>'); 
send  ('Signals,  Systems,  &  Compirters</H2>'); 
send('<PxHR>'); 

send  ('<P>Thank  you  for  your  input '  +  dHonorific  + ' '+  dFName  +' '+  dLName  +'. '); 
send  ('Your  information  has  been  stored  in  order  to  update  our  records.'); 
send  ('  To  protect  your  record,  changes  will  not  become  permanent  until  verified  by  our 
staff.'); 

send  ('<FORM  ACTION="../cgi-win/d_submit.exe"  METHOD="POST">'); 

send ('<INPUT  TYPE="hidden" Name-'ANumber"  Value='"  +  dANumber  +'">'); 

send  ('<P><INPIJT  TYPE="submit"  Value="Continue  with  the  Submission  Process">'); 
send  ('</CENTER>'); 

send('<PxhrxPxIMG  SRC-'../proto1ype/asil2b0.gif "  align=left  alt="Asilomar 
facility">'); 

send(Retum  to  the  <A  HREF="http://131.120.20.70/mdex.html">Asilomar'); 
send('Conference  On-line  Submission  Page</A>'); 
send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application );  {  don’t  leave  form  around  } 
end;  {with  CGlEnvDatal} 
end;  {FormCreate} 
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More  than  one  Author’s  name  fovmd:  Mnltil32.exe 


imit  D132mult; 

{ WHEN  CALLED:  This  program  is  activated  from  D13.exe  when  more  than  one  author 
name  match  is  found  in  the  AUTHOR  Table.} 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 

Forms,  Dialogs,  DB,  DBTables,  Cgi,  Cgidb; 

type 

TForml  =  class(TForm) 

CGIDB  1:  TCGIDB; 

CGEnvDatal;  TCGffinvData; 

Authors;  TTable; 

DataSourcel:  TDataSource; 
procedure  FormCreate(Sender:  TObject); 

private 

{  Private  declarations } 
public 

{  Public  declarations } 
end; 

var 

Forml:  TForml; 


implementation 
{$R  *.DFM} 


procedure  TForml.FormCreate( Sender:  TObject); 
var 

dANumber:  string; 
dbFName;  string; 
dbLName:  string; 
dblnitial:  string; 
dbHonorific:  string; 
dblnstitution:  string; 
dbDepartment;  string; 
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dbMailstop;  string; 
dbAddress  Street:  string; 
dbAddress_City:  string; 
dbAddress  State;  string; 
dbAddress  Zip;  string; 
dbCountry;  string; 
dbPhoneJLocalNumber:  string; 
dbPhone  FaxNumber:  string; 
dbEmail:  string; 

TC;  TDataSet; 

begin  {TFormCreate} 

with  CGIEnvDatal  do  begin 

{Standard  Header) 

webSiteINIFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.  processMessages; 

createStdout; 

sendPrologue; 

{  Get  the  query  string  from  the  address) 

dANmnber  :=  CGIQueryString^; 

{  Get  the  record  information  ) 

with  Authors  do  begin 

{  Move  to  proper  record) 

open; 

first; 

while  fieldbyName('ANumber').asstring  o  dANumber  do 
next; 

{  Retrieve  record  ) 

dbFName  :=  fieldByName(TName').AsString; 
dbLName  ;=  fieldByNanie('LName').AsString; 
dblnitial  :=  fieldByName('Initiar).AsString; 
dbHonorific  :=  fieldByNameCHonorific')- AsString; 
dblnstitution  ;=  fieldByName('Institution').  AsString; 
dbDepartment  :=  fieldByNameCDepartment').  AsString; 
dbMailstop  :=  fieldByNameCMailstopO-AsString; 
dbAddressStreet  :=  fieldByName(Address_Street').AsString; 
dbAddress_City  ;=  fieldByName('Address_City').  AsString; 
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dbAddress  State  :=  fieldByNaine('Address_State').AsString; 
dbAddressZip  :=  £ieldByName(Address_Zip').AsString; 
dbCountry  :=  fieldByName('Country').AsString; 

dbPhoneLocalNumber  :=  fieldByName(PhoneJLocalNumber').AsString; 
dbPhone_FaxNumber  :=  fieldByName(Phone_FaxNumber’).AsString; 
dbEmail  :=  fieldByNameCEmail'). AsString; 

Close; 

end;  (With  Authors} 


{Create  new  page} 

send  ('<HTMLxHEAD>'); 

SendTitle(Asilomar  Signals,  Systems,  and  Computers'); 
send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

send('<centerxHl>Edit  Author  Information</Hlx/center>'); 
send  ('<P>We  have  located  your  record  in  the  database.  Please  ensure  that'); 
send  ('  your  record  is  up-to-date  by  reviewing  the  information  below  and'); 
send  ('  making  any  changes  that  are  necessaiy.<BR><HR>'); 

send('<P><FORM  ACTION="editl32.exe"  METHOD="POST">'); 
send('<INPUT  NAME="ANumber"  TYPE="hidden"  Value='"+  dANumber +"’>'); 

send('<B>First  Name;  </BxlNPUT  NAME="FName"  Size="25"  TYPE="text" 
VALUE='"+  dbFName  +'">'); 

send('<B>  Last  Name:  </BxINPUT  NAME="LName"  Si2e="25"  TYPE="text" 
Value='"  +  dbLName  +'">'); 

send(’<B>  Middle  Initial:  <yBxINPUT  NAME="Initial"  Size="2"  TYPE="text"  Value='" 
+  dblnitial  +'"xHR>'); 

send('<B>Honorific  Title:</B><INPUT  NAME="Honorific"  Size="5"  TYPE="text" 
Value='"  +  dbHonorific  +'">'); 

send('<PxB>Institution:  </B><INPUT  NAME="Institution"  Size="60"  TYPE="text'"); 

send('  Value='"  +  dblnstitution  +'">'); 

send('<brxB>Department:  </BxINPUT  NAME="Department"  Size="60" 
TYPE="text"  Value='"  +  dbDepartment  +'">'); 

send('<brxB>Mail  Stop;  </BxINPUT  NAME="Mailstop"  Size="30"  TYPE="text" 
Value='"  +  dbMailstop  +'">'); 

send('<PxB>Street  address:  </BxINPUT  NAME="Address_Street"  Size="40" 
TYPE="text'"); 

send('Value='"  +  dbAddress_Street  +'">'); 

send('<brxB>City:  </BxINPUT  NAME="Address_City"  Size="20"  TYPE="text" 

Value='"  +  dbAddress_City  +'">'); 

send('<B>State:  </BxINPUT  NAME=" Address_State"  Size="  1 8"  TYPE="text" 

Value='"  +  dbAddress_State  +'">'); 

send('<brxB>Zip  Code:  </BxlNPUT  NAME="Address_Zip"  Size- '  10" 
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TYPE="text"  Value="'  +  dbAddress_Zip 

send('<B>Country :  </BxlNPUT  NAME="Country "  Size- '25 "  TYPE="text" 

Value="'  +  dbCountry  +'">  '); 

send('<P><B>Telephone  number  (with  Area/Country  codes):  </BxlNPUT 
NAME="Phone_LocaINumber"  Size="2 1 

sendC  TYPE="text"Value- "  +  dbPhoneLocalNumber 
send('<brxB>Fax  number  (with  Area/Coimtry  codes):  </B><INPUT 

NAME="Phone_Faxnumber"Size="21"'); 

sendC  TYPE="text"Value- "  +  dbPhoneJFaxNumber  +'">'); 
sendC<brxB>E-mail:  </BxINPUT  NAME="Emair'  Size="50"  TYPE="text" 

Value="’  +  dbEmail +’">’); 

send('<P><CENTERxlNPUT  TYPE="submit"  Value- 'Submit  Infomiation">  <INPUT 
TYPE=''reset'"); 

send('VALUE="Resetto  Original  Information"x/CENTER>'); 

send('<P><hrxpxlMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar 
facility">'); 

sendCRetum  to  the  <A  HREF="http://13 1. 120.20. 70/Index.html">Asilomar'); 

send('Conference  On-line  Submission  Page</A>'); 

send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application  ); 

end;  (with  cgiEnvDatal  do) 
end;  {Procedure  TForml.FormCreate} 


end. 


Article  submission  page:  D_submit.exe 


unit  Dsubmit; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DB,  DBTables; 

type 

TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

CGlEnvDatal:  TCGIEnvData; 

CGIDB  1:  TCGIDB; 

Query  1:  TQuery; 

Keywords:  TTable; 

QueiylName:  TStringField; 

KeywordsNumber:  TIntegerField; 

KeywordsName:  TStringField; 

Query INumber:  TIntegerField; 
procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations } 
public 

{ Public  declarations } 
end; 

var 

Forml:  TForml; 

dbANumber:  string; 
dbOption:  string; 
i:  integer; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
begin 

with  CGlEnvDatal  do  begin 
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webSiteINIFiIenanie:=paramstr(  1 ); 

application.onException:=cgiEiTorHandler; 

application-processMessages; 

createStdout; 

sendPrologue; 

dbANumber:=  getsmallfield('ANumber'); 
send  ('<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  ('</HEADxBODY  bgcolor=FFFFFF>'); 
send  ('<center><H2>Asilomar  Conference  on<BR>’); 
send  ('Signals,  Systems,  &  Computers</centerx/H2>'); 
send('<PxHR>’); 

send('<Hl>New  Article  Submission</Hl>'); 

send('<P>  Please  provide  the  following  information  about  the  article.'); 

send('<PxFORM  METHOD="POST"  ACTION="../cgi-win/d_paper.exe  ">'); 
send('<INPUT  TYPE="hidden"  Name="ANumber"  Value='"+  dbANumber  +'">'); 
send('<B>Title;  </BxlNPUT  NAME="title"  Size="80"  TYPE="text">'); 

{Display  Keywords  on  pull-down  menu  by  taking  values  from  the  KEYWORD  Table} 

(Pull  Keywords  from  KEYWORD  Table  } 
with  Queryl  do  begin 
close; 
sql.clear; 

sql.add('Select  *  FROM  Keyword '); 
open; 

{Move  records  from  query  result  to  Keyword  #1  Pull-down  menu} 

Keywords,  open; 

Keywords,  first; 

send('<PxB>Keyword  #  1 :  </BxSELECT  NAME-"Keywordl  ">'); 

while  not  Keywords.EOF  do  begin 
dbOption;=Keywords.fieldByName('Name').Asstring; 
send('<OPTION>  ’  +dbOption+ "); 

Keywords.next; 

end;  {for  all  records  in  the  query  result} 
send('</SELECT>'); 

{Move  records  from  query  result  to  Keyword  #2  Pull-down  menu} 
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Keywords.first; 

send('<PxB>Keyword  #2:  </BxSELECT  NAME="Keyword2">'); 
sendC<OPTION>  None'); 

while  not  Keywords.EOF  do  begin 
dbOption:=Keywords.fieldByNanie(Name').Asstring; 
send('<OPTION>  ’  +dbOption+ "); 

Keywords.next; 

end;  {for  all  records  in  the  query  result} 
sendC</SELECT>’); 

(Move  records  from  query  result  to  Keyword  #3  Pull-down  menu} 
Keywords.first; 

send(’<PxB>Keyword  #3;  </BxSELECT  NAME="Keyword3">'); 
send('<OPTION>None'); 

while  not  Keywords.EOF  do  begin 
dbOption:=  Keywords.  fieldByNameCName').  Asstring; 
send('<OPTION> '  +dbOption+ "); 

Keywords.next; 

end;  {for  all  records  in  the  query  result} 
send('</SELECT>’); 
end;  {withQueryl} 

{Also  end  displaying  Keyword  pull-down  menus} 


send('<P><B>Abstract;  <px/B><TEXTAREA  NAME="abstract"  COLS=70  Rows=10>'); 
send(Please  enter  your  abstract  here  by  either'); 
send(typing  or  copying  over  this  text.</TEXTAREA>'); 

send  ('<P><hl>Other  Author  Information</hl>If  there  are  multiple  authors  for  this  article, '); 
send  ('please  enter  the  following  information.  '); 

send  Cln  the  boxes  marked  "Name  Position"  please  enter  the  position  in  which  you  wish '); 
send  ('each  author"s  name  to  appear  when  the  abstract  is  printed.'); 
send  ('<br><B>Position  of  the  Contact  Author"s  Name:</B>'); 

send  ('<Select  NAME="contactOrder"  xoption>  l<option>  2<option>  3<option>  4<option> 
5<option>  6</select>'); 
sendhr; 

send  ('<centerxh2>Other  Authors</h2x/centerxhr>'); 

send  ('<B>Name  Position;  </BxSelect  NAME="order2"  xoption>  l<option  selected>  2'); 

send  ('<option>  3<option>  4<option>  5<option>  6</select>'); 

send  ('<B>First  Name:  </B><INPUT  NAME="fhame2"  Size="25"  TYPE="text">'); 

send  ('<B>Middle  Initial:  </BxINPUT  NAME="initial2"  Size="l"  TYPE="text">'); 

send  ('<BR><B>Last  Name:  </BxINPUT  NAME="lname2"  Size="25"  TYPE="text">'); 
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send  ('<brxB>Institution;  </BxrNPUT  NAME=’'institution2"  Size="60"  TYPE="text">'); 


sendhr; 

send  ('<B>Name  Position:  </BxSelectNAME="order3''  xoption>  l<option>  2'); 
send  ('<option  selected>  3<option>  4<option>  5<option>  6</select>'); 
send  ('<B>First  Name:  </BxlNPUT  NAME="fiiame3"  Size="25"  TYPE="text">'); 
send  ('<B>Middle  Initial:  </BxINPUT  NAME="initial3"  Size="l"  TYPE="text">'); 
send  ('<BRxB>Last  Name:  </BxINPUT  NAME="lname3"  Size="25"  TYPE="text">’); 
send  ('<BRxB>Institution:  </BxINPUT  NAME="institution3"  Size="60" 
TYPE="text">’); 

sendhr; 

send  ('<B>Name  Position:  </BxSelect  NAME="order4"  xoption>  l<option>  2<option>'); 
send  ('  3<option  selected>  4<option>  5<option>  6</select>'); 
send  C<B>First  Name:  </BxlNPUT  NAME="fiiame4"  Size="25"  TYPE="text">'); 
send  C<B>Middle  Initial:  </BxINPUT  NAME="initiaI4"  Size="l"  TYPE-"text">’); 
send  ('<BRxB>Last  Name:  </BxINPUT  NAME="lname4"  Size="25''  TYPE="text">’); 
send  ('<BRxB>Institution:  </BxINPUT  NAME="institution4"  Size- '60" 
TYPE="text">’); 

sendhr; 

send  ('<B>Name  Position:  </BxSelect  NAME="order5"  xoption>  l<option>  2'); 
send  ('<option>  3<option>  4<option  selected>  5<option>  6</select>'); 
send  (’<B>First  Name:  <yBxINPlJT  NAME="fhame5"  Size="25"  TYPE="text">'); 
send  ('<B>Middle  Initial:  </BxlNPUT  NAME="initial5"  Size="l"  TYPE="text">’); 
send  ('<BRxB>Last  Name:  </BxINPUT  NAME="lname5"  Size="25"  TYPE="text">'); 
send  ('<BRxB>Institution:  </BxlNPUT  NAME="institution5"  Size="60" 
TYPE="text">'); 

sendhr; 

send  ('<B>Name  Position:  </BxSelect  NAME="order6"  xoption>  l<option>  2'); 
send  ('<option>  3<option>  4<option>  5<option  selected>  6</select>'); 
send  ('<B>First  Name:  </B><INPUT  NAME="fiiame6"  Size="25"  TYPE="text">'); 
send  ('<B>Middle  Initial:  </B><INPUT  NAME="initial6"  Size="l"  TYPE="text">'); 
send  ('<BRxB>Last  Name:  </BxINPUT  NAME="lname6"  Size="25"  TYPE="text">'); 
send  ('<BRxB>Institution:  </BxINPUT  NAME="institution6"  Size="60" 
TYPE="text">'); 

send('<PxCENTER><INPUT  TYPE="submit"  Value-'Submit  Paper  Information"> '); 
send('<INPUT  TYPE="reset"  VALUE="Clear  this  form"x/CENTER>’); 

send('<PxhrxpxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar 
facility">'); 

send(Retum  to  the  <A  HREF="../index.html">Asilomar'); 
send('Conference  Home  Page</A>'); 
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send  C</BODYx/HTML>’); 

send('</BODY></HTML>’); 

closeStdout; 

closeApp(  application );  {  don't  leave  form  around  } 
end;  {with  CGIEnvDatal} 

end;  (FormCreate) 

end. 


Article  infonnation  confirmation  page;  Dpaper.exe 
unit  Dpaper; 

{  WHEN  CALLED:  This  program  is  activated  upon  the  Submit  Paper  Information.} 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 

Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 

TForml  =  class(TForm) 

CGIDB  1:  TCGIDB; 

CGEEnvDatal:  TCGIEnvData; 

DataSourcel:  TDataSoiurce; 

Authors;  TTable; 

procedure  FormCreate(Sender;  TObject); 
private 

{ Private  declarations } 
public 

{ Public  declarations } 
end; 

var 

Forml;  TForml; 

theabstract ;  TStringList; 
i;  integer; 

dANumber;  string; 
dANumberint;  integer; 

dFName;  string; 
dLName;  string; 
dinitial;  string; 
dHonorific;  string; 


dtitle;  string; 
dkeywordl;  string; 
dkeyword2;  string; 
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dkeywordS:  string; 
dabstract:  string; 
dcontactOrder;  string; 

dfiiame2,  dfhanie2in:  string; 
dlname2,  dlnanie2in:  string; 
dinitial2:  string; 
dinstitution2:  string; 
dorder2:  string; 

dfhameS,  dfhameSin:  string; 
dlnameS,  dlnameSin;  string; 
dinitiaB:  string; 
dinstitutionS:  string; 
dorderS;  string; 

dfhame4,  dfhame4m:  string; 
dlname4,  dlname4in:  string; 
dinitiaW:  string; 
dinstitution4:  string; 
dorder4:  string; 

dfhameS,  dfnameSin:  string; 
dlname5,  dlnameSin;  string; 
dinitialS:  string; 
dinstitutionS:  string; 
dorderS:  string; 

dfiiameb,  dfhamebin:  string; 
dlname6,  dlname6in:  string; 
dinitial6;  string; 
dinstitutionb:  string; 
dorderb:  string; 

dbFName :  string; 
dbLName :  string; 
dblnitial ;  string; 
dbHonorific :  string; 

function  MixCaseStr(S:  string);  string; 


implementation 
{$R  *.DFM} 


I  :fe  :ie  ^  :|c :f;  sf:  4: ^  *  9|e  9ie  ^  :ie  4c  sic 4c  He  ^  3|e  sic  s):  :ic  4: 4c  9):  4c  4s  sfe  He  4s  4s  4c  ^  Hi  iie  I 

function  MixCaseStr(S:  string):  string; 

{  This  function  converts  a  string  to  Mixed  case. 

That  is  Capital  first  letter  and  the  rest  lower  case.  } 
var 

i:  integer; 
begin 

if  (S[l]  >=  'a')  and  (S[l]  <=  V)  then 

Dec(S[l],32); 

for  i  :=  2  to  Length(S)  do 

if  (S[i]  >=  'A')  and  (S[i]  <=  T)  and  (S[i-l]o' ')  and  (S[i-l]o'-')  and  (S[i-l]o'c’)  then 
Inc(S[i],  32); 

MixCaseStr  :=  S; 


end; 

1 4: 4c  He  4s  4c  4c  4c  4s  4c  4c  4c  4: 4: 4c  4s  4c  4c  4c  4c  4s  4c  4c  4s  4s  4c  4s  4s  4c  4c  4s  4c  4c  4c  4s  4s  4c  4: 4c  4: 4s  4s  4c  4c  4c  4s  4s  4s  4s  4c  4c  4c  4c  j 


procedure  TFomil.FormCreate(Sender:  TObject); 
begin 

with  CGIEnvDatal  do 
begin 


webSiteINIFilenanie;==paranistr(  1 ); 
application.onException:=cgiErrorHandler; 
application.  processMessages; 


createStdout; 

sendPrologue; 

{  Get  the  fields  from  the  FORM  } 

dANuniber:=  getsmallfield  ('ANiunber'); 
dANumberint:=  strtoint  (dANumber); 
dtitle;=  getsmallfield  ('title'); 
dkeywordl:=  getsmallfield  ('keywordl'); 
dkeyword2:=  getsmallfield  ('keyword2'); 
dkeyword3:=  getsmallfield  ('keyword3'); 

theabstract  :=  TStringListcreate; 

CGIEnvDatal. getTextArea(  'abstract',  theabstract ); 


dcontactOrder:=  getsmallfield  ('contactOrder'); 
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{get  data  on  second  author  position} 
dfname2in:=  getsmallfield  ('fhame2'); 
dlname2in:=  getsmallfield  ('lname2'); 

if  (dfhame2in  = ")  and  (dlname2in  = ")  then  dorder2:= "  {Remove  the  number  if  there  is  no 
name} 

else  begin 

{get  the  rest  of  the  info} 
dorder2:=  getsmallfield  ('order2'); 
dinitial2:=  getsmallfield  ('initial2'); 
dinstitution2;=  getsmallfield  ('institution2'); 

{Format  the  Names} 
dfiiame2:=  MixCaseStr  (dfhame2in); 
dlname2:=  MixCaseStr  (dlname2in) 
end;  {if) 


{get  data  on  third  author  position} 
dfhame3in:=  getsmallfield  ('fnameS'); 
dlname3in:=  getsmallfield  ('lname3'); 

if  (dfhame3in  = ")  and  (dlname3in  = ")  then  dorder3  := "  {Remove  the  number  if  there  is  no 

name} 

else  begin 

{get  the  rest  of  the  info} 
dorder3:=  getsmallfield  ('order3'); 
dinitial3:=  getsmallfield  ('initials'); 
dinstitution3:=  getsmallfield  (’institutions'); 

{Format  the  Names} 
dfhame3:=  MixCaseStr  (dfhameSin); 
dlname3:=  MixCaseStr  (dlnameSin) 
end;  {if} 


{get  data  on  fourth  author  position} 
dfhame4in~  getsmallfield  ('fiiame4'); 
dlname4in:=  getsmallfield  ('lname4'); 

if  (dfname4in  = ")  and  (dlname4in  = ")  then  dorder4:= "  {Remove  the  number  if  there  is 
no  name} 

else  begin 
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{get  the  rest  of  the  info} 

dorder4:=  getsmallfield  ('order4'); 
dimtial4:=  getsmallfield  ('initial4'); 
dinstitution4:=  getsmallfield  ('institution4’); 

(Format  the  Names} 
dfiiame4;=  MixCaseStr  (dfhame4m); 
dlname4:=  MixCaseStr  (dlname4in) 
end;  {if} 


{get  data  on  fifth  author  position} 

dfiiame5in;=  getsmallfield  ('fhameS'); 
dlname5in:=  getsmallfield  ('InameS'); 

if  (dfnameSin  = ")  and  (dlnameSin  = ")  then  dorder5;= "  {Remove  the  number  if  there  is  no 

name} 

else  begin 

{get  the  rest  of  the  info} 

dorder5:=  getsmallfield  ('orderS'); 
dinitial5:=  getsmallfield  ('initials'); 
dinstitution5:=  getsmallfield  ('institutions'); 

{Format  the  Names} 

dfhameS;=  MixCaseStr  (dfhameSin); 
dlnameS:=  MixCaseStr  (dlnameSin) 
end;  {if} 


{get  data  on  sixth  author  position} 
dfhame6in:=  getsmallfield  ('fhameb'); 
dlname6in:=  getsmallfield  ('lname6'); 


if  (dfhamebin  = ")  and  (dlnamebin  = ")  then  dorder6:= "  {Remove  the  number  if  there  is  no 
name} 

else  begin 

{get  the  rest  of  the  info} 
dorder6;=  getsmallfield  ('orderb'); 
dinitial6:=  getsmallfield  ('initialb'); 
dinstitutionb;=  getsmallfield  ('institutionb'); 


{Format  the  Names} 
dfiiameb:=  MixCaseStr  (dfhamebin); 
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dlname6;=  MixCaseStr  (dlname6in) 
end;  {if} 


{if  there  are  no  other  authors,  then  do  not  place  a  number  in  contactAuthorNumber} 
if  (dorder2  = ")  and  (dorderS  = ")  and  (dorder4  =  ")and  (dorderS  =  ")and  (dorderb  = ")  then 
dcontactOrder— 


{  Get  Author  Name  information  for  next  HTML  page  } 
with  Authors  do  begin 

{  Move  to  proper  record} 

open; 

first; 

while  fieldbyName('ANumber').asstring  o  dANumber  do 
next; 

{  Retrieve  Name  information  } 

edit; 

dbFName  :=  fieldByName(TName').AsString; 
dbLName  :=  fieldByNameCLName').  AsString; 
dblnitial  :=  fieldByName('Initial').AsString; 
dbHonorific  :=  fieldByNameCHonorific').  AsString; 
close; 

end;  {With  Authors} 


{  Send  the  Confirm  html  page  } 

send  C<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  ('<VHEADxBODY  bgcolor=FFFFFF>'); 
send  ('<centerxH2>Asilomar  Conference  on<BR>'); 
send  ('Signals,  Systems,  &  Computers</H2>'); 
send('<PxHR>'); 

send  ('<P>Thank  you  for  your  input '  +  dbHonorific  + ' '+  dbFName  +' '+  dbLName  +'.  ’); 
send  CPlease  confirm  that  the  following  information  is  correct  before  it  is  added  to  our 
records.'); 

send  ('<strong>This  information  can  not  be  changed  after  it  is  submitted  this 
time !  </strong></center>'); 

send('<PxFORM  METHOD="POST"  ACTION="../cgi-win/d2paper.exe  ">'); 
send('<INPUT  TYPE="hidden"  Name="ANumber"  Value='"+  dANumber  +'">'); 
send  ('<B>Title;  </BxINPUT  NAME="title"  Size="80"  TYPE="text"  Value='"+  dtitle 

+’">’); 
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send  ('<PxB>Keyword  #  1 ;  </BxINPUT  NAME="keywordl "  SIZE="50"  TYPE="TEXT" 
VALUE="'+  dkeywordl 

send  ('<PxB>Keyword  #2:  </BxlNPUT  NAME="keyword2"  SIZE="50"  TYPE="TEXT" 
VALUE="'+  dkeyword2 

send  ('<PxB>Keyword#3:  </BxlNPUT  NAME=="keyword3"  SIZE=''50"  TYPE="TEXT" 
VALUE="’+  dkeywordS 

send  C<PxB>Abstract:  </BxpxTEXTAREA  NAME="abstract"  COLS=70  Rows=10>’); 

for  i  ;=  0  to  theabstract.count  - 1  do 
send(  theabstract.strings[i] ); 
send('</TEXTAREA>’); 

send  (’<Pxhl>Other  Author  Information</hl>If  there  are  multiple  authors  for  this  article,  ’); 

send  ('please  enter  the  following  information.  It  is  assumed  that  you  are  the  "Contact 
Autohor"  for*); 

send  ('this  paper.  In  the  boxes  marked  "Name  Position"  please  enter  the  position  in  which 
you  wish '); 

send  ('each  authors  name  to  appear  when  the  abstracts  are  printed.'); 

send  ('<brxB>Position  of  YOUR  Name:</B>'); 

send  ('<INPUT  NAME="contactOrder"  Size="2"  TYPE="text"  Value='"+  dcontactOrder 
+"->•); 

sendhr; 

send  ('<B>Name  Position:  </BxINPUT  NAME="order2"  Size="2"  TYPE="text"  Value='"+ 
dorder2 

send  ('<B>First  Name;  </BxINPUT  NAME="fhame2"  Size="25"  TYPE="text"  Value='"+ 
dfhame2  +'">'); 

send  ('<B>Middle  Initial:  </BxINPUT  NAME="initiaI2"  Size="l"  TYPE="text"  Value='"+ 
dinitial2 

send  ('<BRxB>Last  Name:  </BxINPUT  NAME="lname2"  Size="25"  TYPE="text" 
Value='"+  dlname2  +'">'); 

send  ('<BRxB>Institution:  </BxINPUT  NAME="institution2"  Size="60"  TYPE="text" 
Value='"+  dinstitution2 

sendhr; 

send  ('<B>Name  Position:  </BxINPUT  NAME="order3"  Size="2"  TYPE="text"  Value='"+ 
dorder3  +'">'); 

send  ('<B>First  Name:  </BxINPUT  NAME="fhame3"  Size="25"  TYPE="text"  Value='"+ 
dfiiame3  +'">'); 

send  ('<B>Middle  Initial:  </BxINPUT  NAME-"initial3"  Size="l"  TYPE="text"  Value='"+ 
dinitial3  +'">'); 

send  ('<BRxB>Last  Name:  </BxINPUT  NAME="lname3"  Size="25"  TYPE="text" 
Value='"+  dlname3  +'">'); 

send  ('<brxB>Institution:  </BxINPUT  NAME="institution3"  Size="60"  TYPE="text" 
Value='"+  dinstitution3  +'">'); 
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sendhr; 

send  ('<B>Name  Position:  </BxINPUT  NAME="order4"  Size="2"  TYPE="text"  Value='"+ 
dorder4 

send  ('<B>First  Name:  </BxlNPUT  NAME="fiiame4"  Size="25"  TYPE="text"  Value='"+ 
dfhame4 

send  ('<B>Middle  Initial:  </BxlNPUT  NAME="initial4"  Size="l"  TYPE="text"  Value="'+ 
dinitiaM 

send  ('<BRxB>Last  Name:  </BxINPUT  NAME="lname4"  Size="25”  TYPE="text" 
Value="'+  dlname4 

send  ('<BRxB>Institution:  </BxINPUT  NAME="institution4"  Size="60"  TYPE="text" 
Value="'+  dinstitution4 

sendhr; 

send  ('<B>Name  Position:  </BxINPUT  NAME="order5"  Size="2"  TYPE="text"  Value="’+ 
dorderS 

send  (’<B>First  Name:  </BxINPUT  NAME="fhame5"  Size="25’’  TYPE="text"  Value="'+ 
dfhameS 

send  ('<B>Middle  Initial:  </BxlNPUT  NAME="initial5"  Size="r'  TYPE="text"  Value="'+ 
dinitialS 

send  ('<BRxB>Last  Name:  </BxINPUT  NAME="lname5’'  Size="25"  TYPE="text" 
Value='"+  dlnameS 

send  ('<BR><B>Institution:  </BxINPUT  NAME="institution5"  Size="60"  TYPE="text" 
Value="'+  dinstitutionS 


sendhr; 

send  ('<B>Name  Position:  </BxlNPUT  NAME="order6"  Size="2"  TYPE="text"  Value='"+ 
dorder6 

send  C<B>First  Name:  </BxINPUT  NAME="fname6"  Size=''25"  TYPE="text"  Value="'+ 
dfiiame6 

send  (’<B>Middle  Initial:  </BxlNPUT  NAME="initial6"  Size=*’l"  TYPE="text"  Value="'+ 
dinitiaI6 

send  (’<BRxB>Last  Name:  </BxlNPUT  NAME="lname6"  Size="25”  TYPE="text" 
Value="'+  dlname6 

send  ('<BR><B>Institution:  </B><INPUT  NAME="institution6"  Size="60"  TYPE="text" 
Value="'+  dinstitution6 


sendhr; 

send  ('<P><CENTERxINPUT  TYPE="submit"  Value="Confirm  Submission 
Information"xlNPUT  TYPE="reset’"); 

send  C  VALUE="Clear  this  form"x/CENTER>'); 

send('<P><hrxPxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar 
facility">'); 

sendCRetum  to  the  <A  HREF="http://131.120.20.70/Index.html">Asilomar'); 
send('Conference  On-line  Submission  Page</A>'); 
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send  ('</BODYx/HTML>’); 
closeStdout; 

closeApp(  application );  {  don't  leave  form  around  } 
end;  {with  CGIEnvDatal} 
end;  {with  FormCreate} 
end.  {Application} 
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Confirmation  page:  D2paper.exe 


unit  D2_paper; 

{ WHEN  CALLED:  This  program  is  activated  upon  the  Submission  Information 
Confirmation. } 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 

Forms,  Dialogs,  Cgidb,  Cgi,  DB,  DBTables,  Starsock,  Inetmail; 


type 

TForml  =  class(TForm) 

Articles:  TTable; 

DataSourcel:  TDataSource; 

CGIEnvDatal:  TCGIEnvData; 

CGIDB  1:  TCGIDB; 

Authors:  TTable; 

procedure  FormCreate(Sender:  TObject); 

{  procedure  SendMail(DataSet:  TDataset); } 

(  procedure  onmailinfo(Sender:  TObject;  info:  Mailinfo;  addinfo:  String);  } 
private 

{  Private  declarations } 
public 

{ Public  declarations } 
end; 


var 

Forml:  TForml; 
theabstract :  TStringList; 
dANumber:  string; 
dANumberint:  integer; 

dtitle:  string; 
dkeywordl :  string; 
dkeyword2:  string; 
dkeywordS:  string; 
dabstract:  string; 
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dcontactOrder;  string; 


dfhame2in:  string; 
dlname2in:  string; 
dfhame2:  string; 
dlname2;  string; 
dinitial2:  string; 
dinstitution2:  string; 
dorder2:  string; 

dfhameSin:  string; 
dlnameSin;  string; 
dfiiameS:  string; 
dlnameS:  string; 
dinitialS;  string; 
dinstitutionS:  string; 
dorderS;  string; 

dfhanie4in:  string; 
dlnanie4in:  string; 
dfhame4:  string; 
dlname4:  string; 
dinitiaW:  string; 
dinstitution4:  string; 
dorder4;  string; 

dfhameSin:  string; 
dlnameSin:  string; 
dfnameS:  string; 
dlnameS:  string; 
dinitialS:  string; 
dinstitutionS:  string; 
dorderS:  string; 

dfhame6in:  string; 
dlname6in:  string; 
dfhame6:  string; 
dlname6:  string; 
dinitial6:  string; 
dinstitution6:  string; 
dorder6:  string; 

dPaper  Number:  string; 


dbFName :  string; 


dbLName :  string; 
dbHonorific :  string; 
dbEmail :  string; 

addinfo:  string; 

function  MixCaseStr(S:  string):  string; 


implementation 
{$R  *.DFM} 

function  MixCaseStr(S:  string):  string; 

{  This  function  converts  a  string  to  Mixed  case. 

That  is  Capital  first  letter  and  the  rest  lower  case.  } 
var 

i:  integer; 
begin 

if  (S[l]  >=  'a')  and  (S[l]  <=  'z')  then 

Dec(S[l],32); 

for  i  :=  2  to  Length(S)  do 

if  (S[i]  >=  W)  and  (S[i]  <=  'Z')  and  (S[i-l]o' ')  and  (S[i-l]o’-’)  and  (S[i-l]o'c')  then 
Inc(S[i],32); 

MixCaseStr  :=  S; 

end; 

procedure  TForml.FormCreate(Sender:  TObject); 
begin 

with  CGBEnvDatal  do 
begin 

{Initialize  HTML  page } 

webSiteINIFilename:=paramstr(  1 ); 

application.onException:==cgiErrorHandler; 

application.processMessages; 


createStdout; 

sendPrologue; 
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{ Get  data } 

dANumber:=  getsmallfield  ('ANumber'); 
dANiimberint;=  strtoint  (dANumber); 
dtitle:=  getsmallfield  ('title'); 
dkeywordl:=  getsmallfield  Ckeywordl'); 
dke3word2:=  getsmallfield  ('ke5rword2'); 
dke)word3:=  getsmallfield  ('keywords'); 

theabstract  :=  TStringList  create; 

CGIEnvDatal.getTextArea(  'abstract',  theabstract); 

dcontactOrder:=  getsmallfield  ('contactOrder'); 

{get  data  on  second  author  position) 
dfhame2in:=  getsmallfield  ('fname2'); 
dlname2in~  getsmallfield  ('lname2'); 

if  (dfiiame2in  = ")  and  (dlname2in  = ")  then  dorder2:= "  {Remove  the  number  if  there  is  no 

name) 

else  begin 

{get  the  rest  of  the  info) 

dorder2;=  getsmallfield  Corder2'); 
dinitial2:=  getsmallfield  ('initial2'); 
dinstitution2:=  getsmallfield  ('institution2'); 

{Format  the  Names) 
dfhame2;=  MixCaseStr  (dfhame2in); 
dlname2:=  MixCaseStr  (dlname2in) 
end;  {if) 


{get  data  on  third  author  position) 
dfhameSin—  getsmallfield  ('fhameS'); 
dlname3in:=  getsmallfield  ('InameS'); 


if  (dfhameSin  - ")  and  (dlnameSin  = ")  then  dorder3;= "  {Remove  the  number  if  there  is  no 

name) 

else  begin 

{get  the  rest  of  the  info) 
dorder3:=  getsmallfield  ('orderS'); 
dinitial3:=  getsmallfield  (’initials'); 
dinstitution3;=  getsmallfield  ('institutions'); 
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(Format  the  Names} 

dfhame3;=  MixCaseStr  (dfhameSin); 
dlname3:=  MixCaseStr  (dlname3in) 
end;  (if) 


(get  data  on  fourth  author  position} 

dfhame4in:=  getsmallfield  ('fhame4'); 
dlname4in:=  getsmallfield  ('lname4'); 

if  (dfname4in  = ")  and  (dlname4in  = ")  then  dorder4:= "  (Remove  the  number  if  there  is 

no  name} 
else  begin 

(get  the  rest  of  the  info} 
dorder4:=  getsmallfield  ('order4'); 
dinitial4;=  getsmallfield  (’initial4'); 
dinstitution4:=  getsmallfield  ('institution4'); 

(Format  the  Names} 
dfhame4:=  MixCaseStr  (dfiiame4in); 
dlname4;=  MixCaseStr  (dlname4in) 
end;  (if} 


(get  data  on  fifth  author  position} 
dfhame5in:=  getsmallfield  ('fhameS'); 
dlname5in;=  getsmallfield  ('lname5'); 

if  (dfnameSin  = ")  and  (dlnameSin  = ")  then  dorder5;= "  (Remove  the  number  if  there  is  no 

name} 

else  begin 

(get  the  rest  of  the  info} 
dorder5:=  getsmallfield  ('orderS'); 
dinitial5:=  getsmallfield  ('initials'); 
dinstitutionS”  getsmallfield  ('institutions'); 

(Format  the  Names} 
dfhameS—  MixCaseStr  (dfnameSin); 
dlnameS”  MixCaseStr  (dlnameSin) 
end;  (if} 


(get  data  on  sixth  author  position} 
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dfiiame6in:=  getsmallfield  ('fiiame6'); 
dlnaine6in:=  getsmallfield  ('lname6’); 

if  (dfhame6in  = ")  and  (dlname6in  = ")  then  dorder6:= "  {Remove  the  number  if  there  is  no 

name) 

else  begin 

{get  the  rest  of  the  info} 
dorder6;=  getsmallfield  Corder6'); 
dinitial6:=  getsmallfield  ('initial6’); 
dinstitution6:=  getsmallfield  ('institutionh'); 

{Format  the  Names} 
dfhame6:=  MixCaseStr  (dfhamebin); 
dlname6;=  MixCaseStr  (dlnamebin) 
end;  {if} 

{if  there  are  no  other  authors,  then  do  not  place  a  number  in  contactAuthorNumber} 
if  (dorder2  = ")  and  (dorderS  = ")  and  (dorder4  =  ")and  (dorderS  =  ")and  (dorder6  = ")  then 
dcontactOrder;= 

{  Place  Data  into  SUBMISSION  Table} 
with  Articles  do 
begin 

{Append  new  submission  data  to  SUBMISSION  Table} 

open; 

AppendRecord([nil,  dtitle,  nil,  nil,  dANumberint,  nil,  nil,  nil,  dkeywordl,  dkeyword2, 
dkeywordS, 

nil,  dcontactOrder,  dFName2,  dLName2,  dlnitial2,  dInstitution2,  dOrder2,  dFNameS, 

dLNameS, 

dInitialS,  dInstitutionS,  dOrderS,  dFName4,  dLName4,  dlnitial4,  dInstitution4, 

dOrder4, 

dFNameS,  dLNameS,  dlnitial5,  dInstitutionS,  dOrderS,  dFNameb,  dLName6, 
dlnitial6,  dinstitutionb, 
dOrderb]); 

edit; 

CGIDB 1  .StringlistToMemo(theabstract,  fieldbyname(' Abstract')); 
theabstract.free; 

{Get  the  Paper_Number  for  presentation  as  the  Registration  #.} 

last; 

dPaper_Number:=fieldbyname('Paper_Number').asstring; 

close; 
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end;  {with  Articles} 


{  Get  Name  Information  for  next  html  page  } 
with  Authors  do  begin 

{  Move  to  proper  record} 

open; 

first; 

while  fieldbyName('ANumber').asstring  o  dANumber  do 
next; 

(Get  Name  Data} 
edit; 

dbFName  :=  fieldByName(TName').AsString; 
dbLName  ;=  fieldByName(LName').AsString; 
dbHonorific  :=  fieldByNameCHonorificO-AsString; 
dbEmail  :=  fieldByNameCEmail').  AsString; 
close; 

end;  {With  Authors} 


{  SendMaill.TO_Address:=  dbEmail; 

SendMaill.TO_Name:=  dbHonorific  +  "  +  dbFName  +  "  +  dbLName; 
SendMaill  .action:=Send_Mail;} 


{  Send  the  Final  page  } 

send  ('<HTML><HEAD>'); 

SendTitle(Asilomar  Signals,  Systems,  and  Computers’); 
send  (’</HEAD><BOD  Y  bgcolor=FFFFFF>'); 
send  ('<centerxH2>Asilomar  Conference  on<BR>'); 
send  ('Signals,  Systems,  &  Computers</centerx/H2>'); 
sendhr; 

sendhdr  ('1',  'Confirm  New  Article  Submission'); 
send  ('<P>Thank  you '); 

send  (dbHonorific  +  "  +  dbFName  +  "  +  dbLName  + '.  ’); 

send  ('<P>  Your  article  information  has  been  added  to  the  conference'); 

send  ('records.  <b>Your  Registration  Number  is:  '+dPaper_Niunber+'<brx/b>'); 

send  ('<i>Be  sure  that  you  write  this  nmnber  down</i>  or  print  out  a  copy  of  this  page. '); 
send  ('You  will  need  this  number  when  you  send  in  your  extended  summary. '); 
sendhdr  ('3','The  filename  for  your  extended  summary  will  be  the  registration  number!'); 
send  CFor  example,  if  your  Registration  Nmnber  is  15,  the  file  which  contains  your  summary 
should  be  named '); 
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send  ('<B>15.ps</B>  if  ifs  a  postscript  file,  or  <B>15.txt</B>  if  it"s  an  ASCII  file.'); 


send  ('<P>You  must  now  FTP  your  extended  summary.  You  may  use  your  own'); 
send  (TTP  software  or  the  program  you  down-loaded  from  the  <A'); 
send  ('HREF="http;//13 1. 120.20.70/prototype/procl22.htm">Procedures  Page.</A>'); 
send  CBe  sure  you  include  the  Title  of  the  Article  and  the  Author  names'); 
send  ('  in  the  text  of  the  summary.'); 

send  ('<P>Log  on  to  our  FTP  Server  using  the  following  information:<BR>'); 
send  ('server  address;  <b>l 3 1 . 120.20.70</bxbr> '); 
send  ('userlD:  <b>guest</bxbr> '); 
send  ('password:  <b>asilconf</bxbr>'); 

send  ('<P>Thank  you  for  using  our  online  submission  process.  We  hope'); 
send  ('that  you  foimd  it  helpful.  Please  send  any  comments  to'); 
send  ('mikec@nps.navy.mir); 

send('<PxhrxPxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar 
facility">'); 

send(Retum  to  the  <A  HREF="http://131.120.20.70/Index.html">Asilomar'); 
send('Conference  On-line  Submission  Page</A>'); 
send  ('</BODYxyHTML>'); 

CGIEnvDatal  .closeStdout; 
closeApp(  application ); 

end;  {with  CGIEnvDatal} 

end;  {FormCreate} 

{procedure  TForml.SendMail(DataSet:  TDataset); 
var 

dbFName :  string; 
dbLName :  string; 
dbHonorific :  string; 
dbEmail :  string; 

begin 


with  Authors  do  begin 

open; 

first; 

edit; 
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moveby(dANuinberint- 1 ); 

dbFName  :=  fieldByNameCFName'). AsString; 

dbLName  ~  fieldByName(LName’).  AsString; 

dbHonorific  ;=  fieldByNameCHonorific').  AsString; 

dbEmail  :=  fieldByNanie(Emair). AsString; 

close; 

end;  {with  Authors) 


{  SendMail  1 .  TO_Address:=  dbEmail; 

SendMaill.TO_Name:=  dbHonorific  +  "  +  dbFName  +  "  +  dbLName; 

SendMail  1.  action—  SendMail; 

end;  (Sendmail) 


(procedure  TForml.onmailinfo(Sender:  TObject;  info;  Mailinfo; 
addinfo:  String); 
begin 

CGBEnvDatal.send  ('<P>'); 

CGIEnvDatal.sendhdr  (T,  Mail  Status'); 

case  info  of 

Available : 
begin 

if  SendMaill. status  =  Available  then 
CGIEnvDatal.send  (Message  was  sent.') 

else 

begin 

CGIEnvDatal.send(  'mailform.exe  :  something  went  wrong<br>' ); 
CGIEnvDatal.send('Sendmail  status  is: '); 
case  SendMaill. status  of 

ServerConnected:  CGIEnvDatal.send(  'ServerConnected: ' ); 
InvalidServer:  CGIEnvDatal.send(  'InvalidServer; ' ); 

NoWinsock:  CGIEnvDatal.send(  'NoWinsock: ' ); 

NoMailServer;  CGIEnvDatal.send(  NoMailServer: ' ); 
MailDestinationError:  CGIEnvDatal.send(  'MailDestinationError: ' ); 
MailOriginError:  CGIEnvDatal.send(  'MailOriginError: ' ); 
ProtocolError;  CGIEnvDatal.send(  'Protocol  Error: ' ); 

SocketError:  CGIEnvDatal.send(  'SocketError: ' ); 
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ReadError:  CGIEnvDatal.send(  'ReadError: ' ); 

WriteError;  CGIEnvDatal.send(  WriteError: ' ); 

AlreadyBusy;  CGIEnvDatal.send(  'AlreadyBusy: ' ); 

Busy:  CGIEnvDatal.send(  Busy: ' ); 

PrematureDisconnect:  CGIEnvDatal.send(  'PrematureDiscoimect: ' ); 
end; 

CGIEnvDatal.send('info  is: '); 
case  info  of 

ServerConnected:  CGIEnvDatal.send(  'ServerConnected: ' ); 
ServerDisconnected:  CGIEnvDatal.send(  'Server  Disconnected: ' ); 
SendingMessage:  CGIEnvDatal.send(  'SendingMessage: ' ); 
PrematureDisconnect:  CGIEnvDatal.send(  'PrematureDisconnect: ' ); 
Recipient:  CGIEnvDatal.send(  'Recipient: ' ); 

BadAddress:  CGIEnvDatal.send(  BadAddress: ' ); 

ProtocolError:  CGIEnvDatal.send(  Protocol  Error: ' ); 

SocketError:  CGIEnvDatal.send(  'SocketError: ' ); 

ReadError:  CGIEnvDatal.send(  'ReadError: ' ); 

WriteError:  CGIEnvDatal.send(  'WriteError: ' ); 
end; 


CGIEnvDatal.send(  addinfo ); 
end;  {else} 

{  end;  {if} 

{  end;  {case} 

{  CGBEnvDatal.closeStdout; 
closeApp(  application ); 

end;  } 


end. 
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APPENDIX  F.  ADMINISTRATION  SUB-SYSTEM  CODE 


This  appendix  contains  the  HTML  and  Delphi  code  for  the  HTML  documents  and  Delphi 
executables  that  comprise  the  Administration  Sub-system.  The  relationships  of  the  programs  is 
depicted  in  Figure  F-1. 
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Adminpwd.exe 


Auchajags.exe 
Viewchng.exe 

Makechng.exe 
Nochange.exe  Inputau.exe 
Authsrch.exe 


Aitledit,exe 

Artlsrch.exe 


Sessions.exe 


Artlauth.exe 


Aiiadd.exe 


Sessedit.exe 

Sessedt2.exe 


Sessde|Lexe 

Sessdel2.exe 

I 


A\imulti.exe 


Aueditexe 


Artlview.exe 

Artlpost.exe 


Sessadd^exe  Sessdel3  .exe 
Sessadd2.exe 

Keywords.exe 


o 


Authl32.exe 


Q 


Keyedit.exe  Keyadd.exe  Keydel.exe 
Keyedit2.exe  Keyadcl2.exe  Keydel2.exe 

Keydel3.exe 


o 


) - 

Assign.exe 

1  ^ 

Timesl.exe 

Invit 

■Q  Choose.exe 

1 

Times2.exe 

1 

Assign2.exe 

Irivite2.exe  Choose2.exe  1 

1 

I 

Assign3.exe 

Times3.exe 

Passwds.exe 


Pwdmod.exe  Pwdadd.exe  Pwddelexe 

I  I 

Pwdadd2.exe  Pwddel2.exe 


P_Sess.exe 


P_Artl.exe 

I 

P_Artjll2.exe 
P  Artfil.exe 


P_Acceptexe 

I  ^  I 

P_accall-exe  P_Accep2.exe 
P_Accep3.exe 

~  I  ^ 

P_Accscr.exe  P_Accfil.exe 


P_abscat.exe 

i 

Prabsca3.exe 


Figure  F-1.  Administration  Sub-system. 
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UserlD  and  Password  verification  page;  Adinm20.htin 


<HTML> 

<HEADxTnLE>Asiloniar  Signals,  Systems,  and  Computers</TITLEx/HEAD> 

<BODY  bgcolor=FFFFFF> 

<center><H2>Asilomar  Conference  on<BR> 

Signals,  Systems,  &  Computers</centerx/H2> 

<Hl>System  Administration</Hl> 

<P>  This  page  is  intended  for  the  exclusive  use  of  the  System  Administrator  for  the  Asilomar 
Conference  on  Signals,  Systems,  &  Computers. 

<FORM  ACTION="../cgi-win/Adminpwd.exe "  METHOD="POST"> 

<HRxCENTER> 

<B>User  name:  </BxlNPUT  NAME="userid"  Size=’’20"  TYPE="text"> 

<B>Password:  </BxINPUT  NAME="pwd"  Size- '20"  TYPE="password"> 
<INPUTNAME="flag"  Size="3"  TYPE="hidden"  Value="0"> 

<PxINPlJT  TYPE="submit"  Value="Submit  Password">  <INPUT  TYPE="reset'" 
VALUE="Clear  Values"></CENTER> 

<Pxhr><P> 

<1MG  SRC="asil2b0.gif "  align=left  alt=" Asilomar  facility"> 

Return  to  the  <A  HREF="http://131.120.20.70/Index.html">Asilomar 
Conference  On-line  Submission  Page</A> 

</BODYx/HTML> 
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System  Administration  Main  Menu;  Adminpwd.exe 


unit  Admjpwd; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgi,  Cgidb; 

type 

TForml  =  class(TForm) 

DataSourcel;  TDataSource; 

Tablel;  TTable; 

Query  1;  TQuery; 

CGIDB  1;  TCGIDB; 

CGBEnvDatal:  TCGIEnvData; 

Table  lUserlD:  TStringField; 

Table  IPassword;  TStrin^ield; 

QuerylPassword:  TStringField; 

procedure  FormCreate(Sender:  TObject); 

private 

{ Private  declarations  } 
public 

{  Public  declarations } 
end; 

var 

Forml:  TForml; 
dUserlD:  string; 
dpwd:  string; 
dbpassword:  string; 
dflag:  string; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
begin 
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with  CGIEnvDatal  do  begin 


webSiteINIFilename:=paramstr(l ); 
application.onException;=cgiErrorHandler; 
application.  processMessages; 

createStdout; 

sendProIogue; 

{  Get  fields  from  search  page  } 

dUserID:=  getsmallfield  (UserED'); 
dpwd:=  getsmallfield  ('pwd'); 
dflag:=  getsmallfield  ('flag'); 
send  ('<HTML><HEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  C</HEADxBODYbgcolor=FFFFFF>'); 

end; 

{Retrieve  Password  of  the  given  User} 
with  Queryl  do  begin 

close; 

sql.clear; 

sql.add('Select*FROM  Admin  WHERE  UserED  =  +  dUserlD  + ""); 
open; 

Table  1. Open; 

Tablel. First; 

dbpassword  :=  fieldByName(Password').Asstring; 

Tablel. Close; 
end; 


with  cgiEnvDatal  do  begin 

{Determine  whether  password  was  correct} 

if  (dbpassword  =  dpwd)  or  (dflag  = '  1 ')  then  begin  {password  was  correct  or  flag  is 


send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 

send('<centerxh3>Database  Functions<yh3>'); 
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(Review  changes  to  Author  data  Button} 

sendC<PxFORM  ACTION="../cgi-win/auchangs.exe"  METHOD="POST">'); 
sendC<INPUTNAME=’’flag"  TYPE="hidden'’  Value="l">'); 
send('<P><INPUT  TYPE="submit"  Value="Review  Changes  to  Author 
Information"></FORM>'); 

(Modify  Authors  Button} 

send(’<PxFORM  ACTION="../cgi-win/inputau.exe"  METHOD="POST">’); 
send('<INPUT  NAME="flag"  TYPE="hidden"  Value="l">’); 
send('<PxINPUT  TYPE="submit"  Value="  Edit  Author  Information  " 
Size="30"x/FORM>'); 

(Modify  Articles  Button} 

sendC<P><FORM  ACTION="../cgi-win/ArtlEdit.exe"  METHOD="POST">'); 
send('<INPUTNAME="flag"  TYPE==’'hidden"  Value="l">’); 
sendC<P><INPUT  TYPE="submit"  Value="  Edit  Article  data  " 
Size="30"x/FORM>’); 

(Modify  Sessions  Button} 

send('<PxFORM  ACTION="../cgi-win/Sessions.exe"  METHOI>="POST">'); 
send('<INPUTNAME="flag"  TYPE="hidden"  Value="r'>'); 
sendC<P><INPlJT  TYPE="submit"  Value="  Edit  Sessions  "  x/FORM>'); 

(Modify  Keywords  Button} 

send('<PxFORM  ACTION="../cgi-win/Keywords.exe"  METHOI>="POST">'); 

sendC<INPUTNAME="flag"  TYPE="hidden"  Value="l">’); 

sendC<P><INPUT  TYPE="submit"  Value="  Edit  Keywords  "  x/FORM>’); 

(Invite  Articles  Button} 

send('<PxFORM  ACTION="../cgi-win/Invite.exe"  METHOD="POST">'); 
sendC<INPUTNAME="flag"  TYPE="hidden"  Value="l">'); 
sendC<P><CENTERxlNPUT  TYPE="submit"  Value="  Invite  Articles 
"x/CENTERx/FORM>’); 

(Accept/reject  Articles  Button} 

sendC<PxFORM  ACTION="../cgi-win/Choose.exe"  METHOD="POST">’); 
send(’<INPUTNAME="flag"  TYPE="hidden"  Value="  !">'); 
send('<PxCENTERxlNPUT  TYPE="submit"  Value="  Accept  /  Reject  Articles 
’’x/CENTERx/FORM>'); 

(Assign  Articles  to  Sessions  Button} 

send('<PxFORM  ACTION="../cgi-win/Assign.exe”  METHOD="POST">'); 
send('<INPUT  NAME="flag"  TYPE="hidden"  Value="l">’); 

sendC<P><CENTERxlNPUT  TYPE="submit"  Value="  Assign  Articles  to  Sessions  " 
x/centerx/FORM>'); 
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{Assign  Presentation  Times  to  Articles  Button} 

send('<PxFORM  ACTION="../cgi-win/Times.exe''  METHOD="POST">’); 
sendC<INPUTNAME="flag"  TYPE="hidden"  Value="l">'); 
send('<P><CENTERxlNPUT  TYPE="submit"  Value-' Assign  Presentation  Times  to 
Articles"x/CENTER></FORM>’); 

{Modify  Passwords  Button} 

sendC<P><FORM  ACTION="../cgi-win/Passwds.exe"  METHOI>="POST">'); 
sendC<INPUTNAME="flag"  TYPE="hidden"  Value=''l">'); 
send('<PxCENTER><INPUT  TYPE="submit"  Value="  Modify  Passwords " 
x/centerx/FORM>'); 

{Print  Session  List  Button} 

send('<hrxcenterxh3>PrintFunctions</h3x/center>'); 
send('<PxFORM  ACTION=’'../cgi-win/P_sess.exe"  METHOD=’'POST">'); 
send('<INPUTNAME="flag"  TYPE="hidden"  Value="l">'); 
send('<PxCENTER><INPUT  TYPE="submit"  Value="Print  Session 
list"></CENTERx/FORM>’); 

{Print  Article  Information  Button} 

send('<PxFORM  ACTION="../cgi-win/p_artl.exe"  METHOD="POST">’); 
send('<INPUTNAME="flag"  TYPE="hidden"  Value="l">'); 
send('<PxCENTER><INPUT  TYPE="submit"  Value-'Print  Article 
Infonnation"x/CENTER></FORM>’); 

{Print  Article  accept/reject  Button} 

sendC<PxFORM  ACTION="../cgi-win/p_accept.exe"  METHOD="POST">’); 
send('<INPUTNAME="flag"  TYPE="hidden"  Value="l">'); 
send('<PxCENTERxINPUT  TYPE="submit"  Value-'Print  Article  Accept/Reject 
notice"></CENTERx/FORM>'); 

{Print  Abstract  Catalog  Button} 

send('<P><FORM  ACTION="../cgi-win/p_abscat.exe"  METHOI>="POST">'); 
send('<INPUT  NAME="flag"  TYPE="hidden"  Value="l">’); 
send('<PxCENTERxINPUT  TYPE="submit"  Value="Print  Abstract 
Catalog"x/CENTER></FORM>'); 
end 

else  begin  {Password  **incorrect**} 

send('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  & 
Computers</H2x/center>'); 
sendhr; 

send('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 
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send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 
send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to 
login  again.</A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 
send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 
send  ('prosecution  for  your  actions.<BR>'); 
end; 


send('<PxhrxPxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar 
facility">'); 

sendCRetum  to  the  <A  HREF="http://131.120,20.70/Index.html">Asilomar'); 

send('Conference  On-line  Submission  Page</A>'); 

send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 

end;  {with  cgiEnvDatal  do} 
end;  {FormCreate} 
end. 
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Author  Changes:  AuChange.exe 


interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 

TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

CGIDB  1:  TCGIDB; 

DataSourcel:  TDataSource; 

TempAuthors:  liable; 

Query  1;  TQueiy; 

Query  IFName;  TStringField; 

QuerylLName:  TStringField; 

Query  lEditnumber:  TIntegerField; 

Query  IHonorific:  TStringField; 

Query  1  Institution:  TStringField; 

QuerylDepartment:  TStringField; 

Query  lANumber:  TIntegerField; 

Queryllnitial:  TStringField; 

QuerylMailstop:  TStringField; 

QuerylAddress  Street:  TStringField; 

QuerylAddress_City:  TStringField; 

Query  lAddressZip:  TStringField; 

Query IPhone  LocalNumber:  TStringField; 

QuerylPhone  FaxNumber:  TStringField; 

QuerylEmail:  TStringField; 

Query  ICoimtry:  TStringField; 

QuerylAddress_State:  TStringField; 
procedure  FormCreate(Sender:  TObject); 
procedure  CGIDBOnSendingHotField(currentRecord:  TDataset; 
var  s:  OpenString); 
private 

{ Private  declarations } 
public 

{ Public  declarations } 
end; 

var 

Forml:  TForml; 
implementation 
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{$R  *.DFM} 

procedure  TForml.FormCreate(Sender:  TObject); 
var 

count:  integer; 
countstr;  string; 

dflag;  string;  {valid  program  call  variable} 

begin 

with  CGIEnvDatal  do  begin 

webSiteINIFilenanie:=paramstr(  1 ); 
application.  onException:=cgiErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 

{ HTML  page  header } 

send  ('<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

{Determine  whether  flag  is  valid} 

dflag:=  getsmallfield  ('flag'); 

if  (dflag  = '  1')  then  begin  {flag  is  valid} 

send('<center><H2>Asilomar  Conference  System  Administration</H2></center>'); 
sendhr; 

{Display  all  enrties  in  TEMP  AUTHOR  Table,  ordered  by  ANumber,  with  Editnumber 
HotLink} 

with  query  1  do  begin 

prepare;  { Optimizes  query } 
close;  {  should  already  be  closed } 
sql.  clear; 

sql.add(  'Select  *  FROM  TempAuth ' ); 
sql.add(  'Order  by  ANumber ' ); 
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open; 

count;=  Recordcount; 
countstr—  inttostr  (count); 

send  ('<P>There  are '+  countstr  +'  records  to  review. <P>'); 

CGK)B  1  .DrawT  able; 
send  C<P>’); 
end;  {with  queryl  do} 

sendhr; 

sendC<PxFORM  ACTION="../cgi-win/Adminpwd.exe”  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Nanie="flag"  Value="l">'); 
send('<P><CENTERxINPUT  TYPE="submit"  Value="Retum  to  the  System  Admin 
Options  page''x/CENTER></FORM>'); 
send  ('</BODYx/HTML>’); 
closeStdout; 
closeApp(  application ); 
end  {flag  is  valid} 

else  begin  {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>’); 
sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 
send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 
send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">tiy  to  login 
again.  </A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 
send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 
send  ('prosecution  for  your  actions.<BR>'); 


send  ('<Pxhr><PxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">'); 

send  (Return  to  the  <A  HREF="http://131.120.20.70/Index.html">Asilomai'); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  ('</BODY></HTML>'); 

closeStdout; 

closeApp(  application ); 

end;  {flag  **incorrect**} 
end;  {with  cgiEnvDatal  do} 
end;  {FormCreate} 

{Send  Editnumber  as  a  Hot  Link} 
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procedure  TForml.CGIDBOnSendingHotField(currentRecord:  TDataset; 
var  s:  OpenString); 
begin 

s;-<AHREF="../cgi-winA^iewChng.exe?'+ 
currentrecord.fieldbyName('Editnumber').AsString  + 

+  currentrecord.FieldbyName('Editnumber').A5String  +  '</A>'; 

end; 

end. 
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unit  Viewchg; 
interface 


View  changes:  ViewChng.exe 


uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 

TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

CGIEnvDatal:  TCGIEnvData; 

CGIDB  1:  TCGIDB; 

TempAuthors:  TTable; 

Authors:  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations } 
public 

{ Public  declarations } 
end; 

var 

Forml:  TForml; 
implementation 
{$R  *.DFM} 

procedure  TFonnl.FormCreate( Sender:  TObject); 
var 

dANumber:  string; 
dENxunber:  string; 
dblFName:  string; 
dblLName:  string; 
dbllnitial;  string; 
dbl  Honorific:  string; 
dbllnstitution:  string; 
dbl  Department:  string; 
dblMailstop;  string; 
dblAddress  Street;  string; 
dblAddress_City;  string; 
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dblAddress_State:  string; 
dblAddress  Zip:  string; 
dbl  Country:  string; 
dblPhoneJLocalNumber:  string; 
dblPhone  FaxNumber:  string; 
dblEmail:  string; 

db2FName:  string; 
dblLName:  string; 
db2Initial:  string; 
db2Honorific:  string; 
db2Institution:  string; 
db2Department:  string; 
db2Mailstop:  string; 
db2Address_Street:  string; 
db2Address_City:  string; 
db2Address_State:  string; 
db2Address_Zip:  string; 
db2Country:  string; 
db2Phone_LocalNuniber:  string; 
db2Phone_FaxNuniber:  string; 
db2Email:  string; 

TC:  TDataSet; 

begin  {TFormCreate} 

with  CGIEnvDatal  do  begin 

{Standard  Header} 

webSiteINlFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.  processMessages; 

createStdout; 

sendPrologue; 

send  C<HTMLxHEAD>'); 

SendTitle(Asiloniar  Signals,  Systems,  and  Computers’); 
send  C</HEADxBODY  bgcoloi=FFFFFF>'); 

send('<center><Hl>Compare  Author  Information</Hlx/center>'); 
send  ('<P>Here  is  the  old  record  along  with  the  submitted  changes.'); 
sendHR; 

{ Get  the  query  string  from  the  address} 
dENumber  :=  CGIQueryString^; 
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{  Get  the  record  information  from  the  TempAuthor  table } 
with  TempAuthors  do  begin 

{  Move  to  proper  record} 

open; 

first; 

while  fieldbyName('Editnumber').asstring  o  dENmnber  do 
next; 

{ Retrieve  record } 

dANumber  ;=  fieldByName('ANumber').  AsString; 
db2FNanie  :=  fieldByNameCFName'). AsString; 
db2LName  :=  fieldByName('LName').  AsString; 
db21nitial  :=  fieldByName('Initiar).  AsString; 
db2Honorific  :=  fieldByName('Honorific').  AsString; 
db2Institution  :=  fieldByName('Institution').  AsString; 
db2Department  :=  fieldByName('Department').AsString; 
db2Mailstop  :=  fieldByName('Mailstop').AsString; 
db2Address_Street  :=  fieldByName('Address_Street').  AsString; 
db2Address_City  :=  fieldByName('Address_City').  AsString; 
db2Address_State  ;=  fieldByName('Address_State').  AsString; 
db2Address_Zip  :=  fieldByName('Address_Zip'). AsString; 
db2Coimtry  :=  fieldByNanie('Coimtry’).  AsString; 

db2Phone_LocalNumber  ;=  fieldByName(Phone_LocalNumber').AsString; 
db2Phone_FaxNumber  :=  fieldByName(Phone_FaxNumber').AsString; 
db2Email  ;=  fieldByName('Emair). AsString; 

Close; 

end;  {with  TempAuthors} 

{  Get  the  record  information  from  the  Author  table  } 

with  Authors  do  begin 

{ Move  to  proper  record} 

open; 

first; 

while  fieldbyName('ANumber').asstring  o  dANumber  do 
next; 

{ Retrieve  record } 

dblFName  ;=  fieldByName(TName'). AsString; 
dblLName  ;=  fieldByName('LName').  AsString; 
dbllnitial  ;=  fieldByName('Initiar).AsString; 
dbl  Honorific  :=  fieldByNameCHonorific').  AsString; 
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dbl  Institution  ;=  fieldByNanie('Institution').AsString; 
dblDepartment  :=  fieldByName('Department').AsString; 
dblMailstop  :=  fieldByNameCMailstopO-AsString; 
dblAddress_Street  :=  fieldByName('Address_Street').AsString; 
dbl  Address_City  ;=  fieldByName('Address_City').AsString; 
dblAddress_State  :=  fieldByName(Address_State').AsString; 
dblAddress_Zip  ;=  fieldByName('Address_Zip').AsString; 
dblCoimtiy  ;=  fieldByName('Country').AsString; 

dblPhoneLocalNumber  :=  fieldByName('Phone_LocalNumber').AsString; 
dblPhone_FaxNumber  :=  fieldByNanie('Phone_FaxNiimber').AsString; 
dblEmail  :=  fieldByName('Emair).AsString; 

Close; 

end;  {with  Authors} 


(Create  new  page} 

send('<P><FORM  ACTION="../cgi-win/MakeChng.exe"  METHOI>="POST">’); 
send(’<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
send('<INPUT  TYPE="hidden"  Name="ANumber"  Value="’+  dANumber 
send('<INPUT  TYPE=’’hidden"  Name="ENumber"  Value=’"+  dENumber 
sendC<B>OLD  First  Name:  </BxINPUT  NAME="OFName"  Size="25"  TYPE="text" 
VALUE=’"+  dblFName 

send(’<brxB>NEW  First  Name:  </BxINPUT  NAME="FName"  Size="25" 
TYPE=’’text"  VALUE=’"+  db2FName 

send('<PxB>OLD  Last  Name:  </B><INPUT  NAME="OLName"  Size="25" 

TYPE="text"  Value="'  +  dblLName 

send('<brxB>NEW  Last  Name:  </BxlNPUT  NAME="LName"  Size="25" 
TYPE="text"  Value=’"  +  db2LName 

send('<PxB>OLD  Middle  Initial:  </B><INPUT  NAME="OInitiar'  Size="2" 

TYPE="text"  Value='"  +  dbllnitial 

send(’<brxB>NEW  Middle  Initial:  </BxINPUT  NAME="Initial"  Size="2"  TYPE="text" 
Value="'  +  db2Initial 

send('<P><B>OLD Honorific  Title:</B><INPUT NAME-'OHonorific"  Size="5" 
TYPE="text"  Value="'  +  dblHonorific 

send('<brxB>NEW  Honorific  Title:</BxINPUT  NAME=’'Honorific"  Size="5" 
TYPE="text"  Value="'  +  db2Honorific 

send(’<PxB>OLD  Institution:  </BxINPUT  NAME="OInstitution"  Size="60" 
TYPE="text"'); 

sendC  Value="'  +  dbl  Institution 

send('<brxB>NEW  Institution:  </B><INPUT  NAME="Institution"  Size="60" 
TYPE="text"'); 

sendC  Value="'  +  db2Institution 

send('<PxB>OLD  Department:  </BxINPUT  NAME="ODepartment"  Size="60" 
TYPE="text"  Value=’"  +  dblDepartment 

send(’<brxB>NEW  Department:  </BxINPlJT  NAME="Department"  Size="60" 
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TYPE="text"  Value=’"  +  db2Department 

send('<PxbrxB>OLD  Mail  Stop;  </BxINPUT  NAME="OMailstop"  Size="30" 
TYPE="text”  Value="'  +  dblMailstop 

send('<brxB>NEW  Mail  Stop:  <^xINPUT NAME-'Mailstop"  Size="30" 
TYPE="text’’  Value=’"  +  db2Mailstop 

send('<PxB>OLD  Street  address;  <^xEn1PUT  NAME="OAddress_Street"  Size="40" 
TYPE="text’"); 

send(’Value="'  +  dbl  Address_Street 

send(’<brxB>NEW  Street  address:  </BxlNPUT  NAME="Address_Street"  Size="40" 
TYPE="text"'); 

send('Value="'  +  db2Address_Street 

send(’<PxB>OLD  City:  </BxIlSIPUT  NAME="OAddress_City"  Size="20" 
TYPE="text"  Value=’"  +  dbl  Address_City 

send(’<brxB>NEW  City:  </BxINPUT  NAVlE="Address_City"  Size="20" 

TYPE="text"  Value="'  +  db2Address_City 

send('<PxB>OLD  State:  </BxllSlPUT  NAME="OAddress_State"  Size='’2" 
TYPE="text"  Value="'  +  dblAddress_State 

send('<brxB>NEW  State;  </BxINPlJT  NAME="Address_State"  Size="2" 
TYPE="text"  Value="'  +  db2Address_State 

send(’<PxB>OLD  Zip  Code:  </BxINPlJT  NAVIE="OAddress_Zip''  Size="  10" 
TYPE="text"  Value="'  +  dblAddress_Zip 

sendC<brxB>NEW  Zip  Code:  </BxINPUT  NAME="Address_Zip"  Size="10" 
TYPE="text"  Value=’"  +  db2Address_Zip 

send(’<PxB>OLD  Country;  </BxlNPUT  NAME="OCountry"  Size="25"  TYPE="text" 
Value="'  +  dbl  Country  +’">  '); 

send(’<brxB>NEW  Country;  </BxINPUT  NAME="Country"  Size="25"  TYPE="text" 
Value=’"  +  db2Country  +'">  ’); 

send('<PxB>OLD  Telephone  number  (with  Area/Country  codes);  </BxINPUT 
NAME="OPhone_LocalNumber"  Size="2 1 

sendC  TYPE="text"Value="’  +  dblPhone_LocalNumber 

send('<brxB>NEW  Telephone  number  (with  Area/Country  codes);  </BxI]SlPUT 
NAME="Phone_LocalNumber"  Size="2 1 "’); 

sendC  TYPE="text"Value="'  +  db2Phone_LocalNumber  +'">'); 
send('<PxB>OLD  Fax  number  (with  Area/Country  codes):  </BxINPUT 

NAME="OPhone_Faxnumber"  Size="2 1 "’); 

sendC  TYPE="text"Value="’  +  dblPhone_FaxNumber  +'">'); 
send('<brxB>NEW  Fax  number  (with  Area/Country  codes):  </BxlNPUT 

NAME="Phone_Faxnumber"  Size="2r"); 

sendC  TYPE="text"Value='"  +  db2Phone_FaxNumber  +'">’); 

sendC<PxB>OLD  E-mail:  </BxINPUT  NAME="OEmail"  Size="50"  TYPE="text" 

Value="’  +  dblEmail  +"’>’); 

sendC<brxB>NEW  E-mail:  </BxINPUT  NAME="Email"  Size="50"  TYPE="text" 

Value="'  +  db2Email  +'">'); 

sendC<PxCENTERxINPUT  TYPE="submit"  Value="  Accept 
Changes"x/CENTERx/FORM>’); 
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sendC<P><FORM  ACTION="../cgi-win/Nochange.exe"  METHOD="POST">’); 
send(’<INPUT  TYPE="hidden"  Name=''flag"  Value-"! 
sendC<INPUT  TYPE="hidden"  Name="ENumber"  Value="'+  dENumber 
sendC<P><CENTERxINPUT  TYPE="submit"  Value="Do  NOT  Modify  this  Record. 
Discard  Changes.  "x/CENTERx/FORM>'); 

sendhr; 

send('<PxFORM  ACTION-".. /cgi-win/Adminpwd.exe"  ME’raOD-"POST">'); 
sendC<INPUT  TYPE-"hidden"  Name-"flag"  Value='T">'); 
send('<PxCENTERxlNPUT  TYPE-"submit"  Value-"Retum  to  the  System  Admin 
Options  page"x/CENTER></FORM>'); 
send  (’</BODYx/HTML>’); 
closeStdout; 
closeApp(  application ); 

end;  {with  cgiEnvDatal  do} 

end;  {Procedure  TForml-FormCreate} 

end. 
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unit  Makechg; 
interface 


Make  the  Change;  MakeChng.exe 


uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DB,  DBTables; 

type 

TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

Authors:  liable; 

CGIEnvDatal:  TCGDEnvData; 

CGIDBl:  TCGIDB; 

TempAuthors:  liable; 
procedure  FormCreate(Sender:  lObject); 
private 

{  Private  declarations } 
public 

{ Public  declarations } 
end; 

var 

Forml:  IForml; 
dANumber;  string; 
dENumber:  string; 
dANumberint:  integer; 
dFName:  string; 
dLName:  string; 
dinitial:  string; 
dHonorific:  string; 
dinstitution:  string; 
dDepartment:  string; 
dMailstop:  string; 
dAddress  Street:  string; 
dAddress  City:  string; 
dAddressState;  string; 
dAddress_Zip;  string; 
dCoxmtiy:  string; 
dPhone  AreaCode;  string; 
dPhone  LocalNumber:  string; 
dPhone  FaxNumber:  string; 
dEmail;  string; 
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dflag:  string;  {valid  program  call} 

implementation 
{$R  *.DFM} 

procedure  TForml.FormCreate(Sender:  TObject); 
begin 

with  CGIEnvDatal  do 
begin 

{Standard  Header} 

webSiteINIFiIename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 

{Standard  Header} 
send  ('<HTML><HEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  ('</HEADxBODY  bgcolor=FFFFFF>'); 


{Determine  whether  flag  is  valid} 

dflag:=  getsmallfield  ('flag'); 

if  (dflag  = '!')  then  begin  {flag  is  valid} 

send('<center><H2>Asilomar  Conference  System  Administration</H2></center>'); 
sendhr; 

{Retrieve  data  from  Form} 

dANumber;=  getsmallfield  ('ANumber'); 
dENumber:=  getsmallfield  ('ENumber'); 
dFName:=  getsmallfield  CFName'); 
dLName”  getsmallfield  CLName’); 
dinitial”  getsmallfield  ('Initial'); 

(Honorific”  getsmallfield  (Honorific'); 
dinstitution”  getsmallfield  ('Institution'); 
dDepartment”  getsmallfield  CDepartmenf ); 
dMailstop;=  getsmallfield  ('Mailstop'); 
dAddress_Street;=  getsmallfield  ('Address_Street'); 


230 


dAddress_City;=  getsmallfield  ('AddressCity'); 
dAddress_State:=  getsmallfield  (Address_State'); 
dAddressZip”  getsmallfield  (AddressZip'); 
dCountry:=  getsmallfield  ('Country'); 

dPhone_LocalNumber;=  getsmallfield  ('PhoneJ.ocalNumber'); 
dPhone_FaxNumber;=  getsmallfield  (PhoneFaxnumber'); 
dEmail:=  getsmallfield  CEmail'); 

{Add  new  information  to  AUTHOR  Table} 
with  Authors  do  begin 

{ Move  to  proper  record} 

open; 

first; 

while  fieldbyName('ANumber’).asstring  o  dANumber  do 
next; 

{Update  record  } 
edit; 

SetFields([nil,  dFName,  dLName,  dinitial,  dHonorific,  dinstitution,  dDepartment,  dMailstop, 

dAddress_Street,  dAddressCity,  dAddressState,  dAddress_Zip,  dCountry, 

dPhoneLocalNumber,  dPhoneFaxNumber,  dEmail]); 

post; 

close; 

end;  {with  Authors} 

{Remove  entry  from  TEMP  AUTHOR  Table} 

With  TempAuthors  do  begin 

{  Move  to  proper  record} 

open; 

first; 

while  fieldbyName('Editnumber').asstring  o  dENumber  do 
next; 

{Delete  Record} 

delete; 

close; 

end;  {With  TempAuthors} 

{Send  the  Thankyou  page  } 

send  ('<P>The  information  about '  +  dHonorific  + ' '+  dFName  +' '+  dLName  +’ '); 
send  ('has  been  updated  in  our  records.'); 
send  ('</CENTER>'); 
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send('<PxFORM  ACTION-'.  ./cgi-win/AuChangs.exe"  METHOI>="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l’'>'); 
send('<PxCENTERxINPUT  TYPE="submit"  Value="Review  changes  to  another 
Author''x/CENTER></FORM>'); 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adniinpwd.exe"  METHOI>="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="  1 

send('<PxCENTERxlNPUT  TYPE="submit"  Value="Retum  to  the  System  Admin 
Options  page"></CENTER></FORM>'); 

end  {flag  is  valid} 

else  begin  {flag  **incorrect**} 

send  ('<center><H2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 
sendhr; 

send  ('<center><H2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 
send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 
send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 
again.  </A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 
send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 
send  ('prosecution  for  your  actions.<BR>'); 


send  (’<Pxhr><PxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">'); 

send  (Return  to  the  <A  HREF="http://131.120.20.70/Index.html">Asilomar'); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  ('</BOD  Y></HTMI>'); 

closeStdout; 

closeApp(  application ); 

end;  {flag  **mcorrect**} 

send  C</BODYx/HTML>'); 
closeStdout; 
closeApp(  application  ); 
end;  {with  CGIEnvDatal} 
end;  {FormCreate} 

end.  {Application} 

Do  not  make  changes;  NoChanges.exe 


unit  No_chang; 
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interface 


uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DB,  DBTables; 

type 

TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

TempAuthors:  TTable; 

CGIEnvDatal:  TCGIEnvData; 

CGIDBl:  TCGIDB; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations } 
public 

{ Public  declarations } 
end; 

var 

Forml:  TForml; 
dENumberistring; 

dflag:  string;  {valid  program  call} 

implementation 
{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
begin 

with  CGIEnvDatal  do 
begin 

{Standard  Header} 

webSiteINIFilename;=paramstr(  1 ); 

apid«»tion.onException:=cgiErrorHandler; 

application.  processMessages; 

createStdout; 

sendPrologue; 

send  ('<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

{Determine  whether  flag  is  valid} 
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dflag:=  getsmallfield  ('flag'); 

if(dflag  =  'l')  then  begin  {flag  is  valid} 


send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 

dENumber  :=  getsmallfield  CENumber'); 

(Delete  information  from  TEMPAUTHOR  Table} 
with  Temp  Authors  do  begin 

{ Move  to  proper  record} 

open; 

first; 

while  fieldbyName('Editnumber').asstring  o  dENumber  do 
next; 

(Delete  record  } 

delete; 

close; 

end;  (with  TempAuthors} 

(Send  the  Confirmation} 

send  ('<P>The  temporary  changes  to  the  Author  data  have  been  deleted  from  our  records.'); 

send('<PxFORM  ACTION="../cgi-win/AuChangs.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
send('<PxCENTERxINPUT  TYPE="submit"  Value="Review  changes  to  another 
Author"></CENTERx/FORM>'); 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST’'>'); 
sendC<INPUT  TYPE="hidden"  Name="flag"  Value="l">’); 

send('<PxCENTERxINPlJT  TYPE="submit"  Value="Go  to  System  Admin  Options 
page"x/CENTER></FORM>’); 

end  (flag  is  valid} 

else  begin  (flag  **incorrect**} 

send  ('<center><H2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 
sendhr; 

send  ('<center><H2>Your  password  was  <strong>not  accepted!  !</strongx/H2></center>'); 
send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 
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send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 
again.  </A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 
send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 
send  ('prosecution  for  your  actions. <BR>'); 

send  ('<Pxhr><PxIMG  SRC- '../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">'); 

send  (Return  to  the  <A  HREF="http://131.120.20.70/Index.html">Asilomar'); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 

end;  {flag  **iiicorrect**} 

send  ('</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 
end;  {with  CGIEnvDatal} 

end;  {FormCreate} 

end.  {Application} 
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Input  Author  Name:  lnputau.exe 


interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DBTables,  DB; 

type 

TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

CGEEnvDatal:  TCGIEnvData; 

CGIDBl:  TCGIDB; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations } 
public 

{  Public  declarations } 
end; 

var 

Forml:  TForml; 

dflag;  string;  {valid  program  call} 

implementation 
{$R  *.DFM} 

procedure  TForml.FormCreate(Sender:  TObject); 
begin 

with  CGIEnvDatal  do 
begin 

webSiteINIFilename:==paramstr(  1 ); 
application.onException:=cgiErrorHandler; 
application.  processMessages; 

createStdout; 

sendPrologue; 

send  ('<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
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send  C</HEADxBOD  Y  bgcoloi=FFFFFF>’); 

{Determine  whether  flag  is  valid} 

dflag:=  getsmallfield  ('flag'); 

if  (dflag  = '  1')  then  begin  {flag  is  valid} 

send('<centerxH2>Asilomar  Conference  System  Administration</H2></center>'); 
sendhr; 


send('<Hl>Edit  Author  Information</Hl>'); 

send('<P>To  locate  an  author  name  in  the  database,  please  enter  the  name  below; '); 
send('<PxFORM  METHOD="POST"  ACTION="../cgi-win/AuthSrch.exe  ">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 

send('<B>First  Name:  </BxINPUT  NAME="first"  Size="20"  TYPE="TEXTt"> '); 
send('<B>Last  Name;  </BxINPUT  NAME="last"  Size="20"  TYPE="TEXT">'); 
send('<B>Middle  Initial:  </BxINPUT  NAME="initial"  Size="2"  TYPE="TEXT">'); 


send('<PxCENTERxnsiPUT  TYPE="submit"  Value="submit  author  name">'); 
send('<INPUT  TYPE="reset"  VALUE-"Clear  this  form"x/CENTER>'); 
send  ('</form>'); 
sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
send(’<INPUT  TYPE="hidden’'  Name="flag"  Value=’'l">’); 

send('<P><CENTER><INPUT  TYPE="submit"  Value="Retum  to  the  System  Admin 
Options  page"></CENTER></FORM>'); 
end  {flag  is  valid} 

else  begin  {flag  **incorrect**} 

send  ('<center><H2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 
sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strong></H2x/center>'); 
send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 
send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 
again.  </A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 
send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 
send  ('prosecution  for  your  actions.<BR>'); 
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send  ('<Pxhr><PxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">'); 
send  CRetum  to  the  <A  HREF="http://131.120.20.70/Index.html">Asilomar'); 
send  ('Conference  On-line  Submission  Page</A>’); 

end;  {flag  **mcorrect**} 

send  ('</BODYx/HTML>'); 
closeStdout; 
closeApp(  application  ); 
end;  {with  CGIEnvDatal} 

end;  {Procedure  FormCreate} 

end. 
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Add  a  new  Author:  AuAdd.exe 


interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 

TForml  =  class(TForm) 

CGIEnvDatal;  TCGIEnvData; 

CGIDB  1:  TCGIDB; 

DataSourcel:  TDataSource; 

Authors:  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations } 
public 

{  Public  declarations } 
end; 

var 

Forml:  TForml; 

dflag;  string;  {valid  program  call} 

(Database  Variables} 

dANumber :  string; 
dFName:  string; 
dLName:  string; 
dinitial:  string; 
dHonorific:  string; 
dinstitution:  string; 
dDepartment:  string; 
dMailstop:  string; 
dAddress  Street:  string; 
dAddress_City:  string; 
dAddress_State:  string; 
dAddress  Zip:  string; 
dCountry:  string; 
dPhone_AreaCode:  string; 
dPhone  LocalNumber:  string; 
dPhoneJFaxNumber:  string; 
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dEmail;  string; 


implementation 
{$R  *.DFM} 

procedure  TForml.FormCreate(Sender:  TObject); 
begin 

with  CGIEnvDatal  do  begin 

{Standard  Header} 

webSiteINIFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 

send  (’<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  ('</FEADxBODY  bgcolor=FFFFFF>'); 

{Determine  whether  flag  is  valid} 

dflag;=  getsmallfield  ('flag'); 

if  (dflag  = '1')  then  begin  {flag  is  valid} 

send('<center><H2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 

{Get  data  from  FORM} 
dFName:=  getsmallfield  ('FName'); 
dLName:=  getsmallfield  ('LName'); 
dlnitial:=  getsmallfield  ('Initial'); 
dHonorific”  getsmallfield  (Honorific'); 
dInstitution:=  getsmallfield  ('Institution'); 
dDepartment:=  getsmallfield  CDepartmenf ); 
dMailstop:=  getsmallfield  ('Mailstop'); 
dAddress_Street:=  getsmallfield  ('AddressStreef ); 
dAddress_City:=  getsmallfield  ('Address_City'); 
dAddress_State:=  getsmallfield  ('AddressState'); 
dAddress_Zip:=  getsmallfield  ('Address_Zip'); 
dCountry;=  getsmallfield  ('Coimtry'); 
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dPhone_LocalNumber:=  getsmallfield  (PhoneLocalNumber'); 
dPhone_FaxNumber:=  getsmallfield  (PhoneFaxnumber'); 
dEmail;=  getsmallfield  CEmail'); 

{Append  data  to  AUTHOR  Table} 

Authors.open; 

Authors.AppendRecord([nil,  dFName,  dLName,  dinitial,  dHonorific,  dinstitution, 
dDepartment,  dMailstop, 

dAddress  Street,  dAddress  Cily,  dAddress  State,  dAddress  Zip,  dCoimtry,  nil  {old 
areacode}, 

dPhoneJLocalNumber,  dPhoneFaxNumber,  dEmail]); 

Authors,  close; 

{Send  the  Thanl^ou  page  } 

send  ('<P>The  information  about '  +  dHonorific  + ' '+  dFName  +' '+  dLName  +' '); 

send  ('has  been  added  to  our  records.'); 

send('</CENTER>’); 

sendC<PxFORM  ACTION=’'../cgi-win/InputAu.exe"  METHOD="POST">’); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">’); 
send('<PxCENTERxlNPUT  TYPE="submit"  Value="Edit  another 
Author"x/CENTERx/FORM>'); 
sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe''  METHOD="POST">'); 
send(’<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 

send('<PxCENTERxINPUT  TYPE- ’submit"  Value="Retum  to  the  System  Admin 
Options  page"></CENTER></FORM>'); 

end  {flag  is  valid} 

else  begin  {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2></center>'); 
sendhr; 

send  ('<centerxH2>Yoiu‘  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  (’<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again.</A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 
send  (’maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 
send  ('prosecution  for  your  actions.<BR>'); 


send  ('<PxhrxPxIMG  SRC="../prototype/asil2b0.gif "  align=lefl  alt="Asilomar  facility">'); 
send  (Return  to  the  <A  HREF="http;//131.120.20.70/Index.html">Asilomar'); 
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send  ('Conference  On-line  Submission  Page</A>’); 


end;  {flag  **incorrect**} 

send  ('</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 
end;  {with  CGIEnvDatal} 

end;  {FormCreate} 

end.  {Application} 
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Multiple  Matches:  AuMulti.exe 


interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgidb,  Cgi; 

type 

TForml  =  class(TForm) 

CGIEnvDatal;  TCGIEnvData; 

CGIDBl:  TCGIDB; 

DataSourcel:  TDataSource; 

Tablel:  liable; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations } 
public 

{ Public  declarations  } 
end; 

var 

Forml:  TForml; 
implementation 
{$R  *.DFM} 

procedure  TForml.FormCreate(  Sender:  TObject); 
var 

{Database  Variables} 

dANumber:  string; 
dbFName:  string; 
dbLName:  string; 
dblnitial:  string; 
dbHonorific:  string; 
dblnstitution;  string; 
dbDepartment:  string; 
dbMailstop:  string; 
dbAddress  Street:  string; 
dbAddress_City:  string; 
dbAddress_State:  string; 
dbAddress_Zip:  string; 
dbCoimtry:  string; 
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dbPhoneJLocalNumber:  string; 
dbPhoneJFaxNumber:  string; 
dbEmail;  string; 

TC:  TDataSet; 

begin  {TFormCreate} 

with  CGIEnvDatal  do  begin 

{Standard  Header} 

webSiteINIFilename:=paranistr(  1 ); 

application.onException:=cgiErrorHandler; 

application.  processMessages; 

createStdout; 

sendPrologue; 

{ Get  the  query  string  from  the  address} 
dANumber  ;=  CGIQueryString'^; 

{ Get  the  record  information } 

with  Table  1  do  begin 

{  Move  to  proper  record} 

open; 

first; 

while  fieldbyName('ANumber').asstring  o  dANumber  do 
next; 

{  Retrieve  record } 

dbPName  ;=  fieldByName(TName').AsString; 
dbLName  :=  fieldByName('LName').AsString; 
dblnitial  :=  fieldByNameCInitialO.AsString; 
dbHonorific  ;=  fieldByName('Honorific').AsString; 
dblnstitution  :=  fieldByName(lnstitution').AsString; 
dbDepartment  :=  fieldByName('Department').AsString; 
dbMailstop  :=  fieldByName('Mailstop').AsString; 
dbAddress_Street  ;=  fieldByName('Address_Street').AsString; 
dbAddress_City  :=  fieldByName('Address_City').AsString; 
dbAddress_State  :=  fieldByName('Address_State').AsString; 
dbAddress_Zip  :=  fieldByName('Address_Zip').AsString; 
dbCountry  :=  fieldByName('Country’).AsString; 

dbPhone_LocalNumber  :=  fieldByName(Phone_LocalNumber').AsString; 
dbPhoneJFaxNumber  :=  fieldByName('PhoneJFaxNumber').AsString; 
dbEmail  :=  fieldByName('Emair).AsString; 
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Close; 

end; 


{Create  new  page} 

send  ('<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HDEADxBODY  bgcolor=FFFFFF>'); 

send('<centerxHl>Edit  Author  Information</Hlx/center>'); 

send  ('<P>We  have  located  the  record  in  the  database.'); 

sendhr; 

{Send  form  with  Author  information} 

send('<PxFORM  ACTION="AuEdit.exe"  METHOD="POST">'); 

send('<INPUT  NAME="ANumber"  TYPE="hidden"  Value='"+  dANumber  +'">'); 

send('<B>First  Name:  </BxlNPUT  NAME="FName"  Size="25"  TYPE="text" 
VALUE='"+  dbFName  +'">'); 

send('<B>  Last  Name:  </B><INPUT  NAME="LName"  Size="25"  TYPE="text" 
Value="’  +  dbLName  +"’>'); 

send('<B>  Middle  Initial:  <BxlNPUT  NAME="Initial"  Size="2"  TYPE="text"  Value="’ 
+  dblnitial  +'"><HR>'); 

send('<B>Honorific  Title :</BxINPUT  NAME="Honorific"  Size="5"  TYPE="text" 
Value='"  +  dbHonorific  +'">'); 

send('<P><B>Institution:  </BxINPUT  NAME="Institution"  Size="60"  TYPE="text"'); 

sendC  Value='"  +  dblnstitution  +'">'); 

send('<brxB>Department:  </BxlNPUT  NAME="Department"  Size="60" 
TYPE="text"  Value='"  +  dbDepartment  +'">'); 

send(’<brxB>Mail  Stop:  </BxrNPUT  NAME="Mailstop"  Size="30"  TYPE="text" 
Value='"  +  dbMailstop  +'">'); 

send('<PxB>Street  address:  </BxINPUT  NAME="Address_Street"  Size="40" 
TYPE="text"’); 

send('Value='"  +  dbAddress_Street  +'">'); 

send('<br><B>City:  </B><INPUT  NAME="Address_City"  Size="20"  TYPE="text" 

Value='"  +  dbAddress_City  +"’>'); 

send('<B>State:  </BxINPUT  NAME="Address_State"  Size="2"  TYPE="text" 

Value='"  +  dbAddress_State  +"’>'); 

send(’<brxB>Zip  Code:  </BxINPUT  NAME=" Address_Zip"  Size="  10" 

TYPE="text"  Value='"  +  dbAddress_Zip  +"’>'); 

send('<B>Country:  </BxINPUT  NAME="Country"  Size="25"  TYPE="text" 

Value="'  +  dbCountry  +'">  '); 

send('<PxB>Telephone  number  (with  Area/Country  codes):  </BxINPlJT 
NAME="Phone_LocalNumber"  Size="2 1  ’"); 

sendC  TYPE="text"Value='"  +  dbPhone_LocalNumber  +'">'); 

send('<brxB>Fax  number  (with  Area/Country  codes):  </BxlNPUT 
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NAME="Phone_Faxnumber"  Size="2 1 

sendC  TYPE="text"Value="'  +  dbPhoneFaxNumber 

sendC<brxB>E-mail:  </BxINPUT  NAME="Email"  Size="50"  TYPE="text" 

Value="'  +  dbEmail 

send('<PxCENTERxlNPUT  TYPE="submit'’  VaIue="Submit  Infonnation">  <INPUT 
TYPE="reset’"); 

send('VALUE="Reset  to  Original  Information"x/CENTER>’); 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOI>="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
send('<PxCENTERxlNPUT  TYPE-'submit"  Value="Retum  to  the  System  Admin 
Options  page"x/CENTER></FORM>'); 
send  ('</BODYx/HTML>’); 
closeStdout; 
closeApp(  application ); 

end;  {with  cgiEnvDatal  do} 

end;  {Procedure  TForiiil.FormCreate} 

end. 
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unit  Au_edit; 
interface 


Edit  an  Author;  AuEditexe 


uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DB,  DBTables; 

type 

TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

Authors:  TTable; 

CGIEnvDatal:  TCGIEnvData; 

CGIDB  1:  TCGIDB; 

AuthorsANumber:  TIntegerField; 

AuthorsLName:  TStringField; 

AuthorsFName:  TStringField; 

Authorsinitial:  TStringField; 

AuthorsHonorific:  TStringField; 

Authorsinstitution;  TStringField; 

AuthorsDepartment:  TStringField; 

AuthorsMailstop;  TStringField; 

AuthorsAddress_Street:  TStringField; 

AuthorsAddress  City:  TStringField; 

AuthorsAddress  State:  TStringField; 

AuthorsAddress  Zip:  TStringField; 

AirthorsCoimtry;  TStringField; 

AuthorsPhoneLocalNumber:  TStringField; 

AuthorsPhone  FaxNumber:  TStringField; 

AuthorsEmail:  TStringField; 

procedure  FonnCreate(Sender:  TObject); 

private 

{  Private  declarations } 
public 

{ Public  declarations } 
end; 

var 

Forml:  TForml; 

{Database  Variables} 
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dANumber;  string; 
dANumberint:  integer; 
dFName;  string; 
dLName:  string; 
dbiitial;  string; 
dHonorific;  string; 
dinstitution:  string; 
dDepartment;  string; 
dMailstop:  string; 
dAddress  Street:  string; 
dAddress_City:  string; 
dAddress  State;  string; 
dAddress_Zip;  string; 
dCountry:  string; 
dPhone  AreaCode:  string; 
dPhone  LocalNumber;  string; 
dPhone  FaxNumber;  string; 
dEmail:  string; 

dflag;  string;  {valid  program  call} 

implementation 
{$R  *.DFM} 

procedure  TForml.FormCreate(Sender;  TObject); 
begin 

with  CGIEnvDatal  do 
begin 

{Standard  Header} 

webSiteINIFilename;=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.  processMessages; 

createStdout; 

sendPrologue; 

send  (’<HTML><HEAD>’); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

{Determine  whether  flag  is  valid} 
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dflag:=  getsmallfield  ('flag'); 
if  (dflag  = '  1 ')  then  begin  {flag  is  set} 


send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 

{Get  data  from  Form} 

dANumber:=  getsmallfield  ('ANumber'); 
dFName:=  getsmallfield  CFName'); 
dLName:=  getsmallfield  ('LName'); 
dlnitial;=  getsmallfield  ('Initial'); 
dHonorific:=  getsmallfield  (Honorific'); 
dInstitution:=  getsmallfield  ('Institution'); 
dDepartment:=  getsmallfield  (Department'); 
dMailstop:=  getsmallfield  ('Mailstop'); 
dAddress_Street:=  getsmallfield  ('AddressStreet'); 
dAddress_City:=  getsmallfield  ('Address_City'); 
dAddress_State:=  getsmallfield  ('Address_State'); 
dAddress_Zip:=  getsmallfield  ('AddressZip'); 
dCoimtry;=  getsmallfield  ('Country'); 

dPhone_LocalNumber:=  getsmallfield  CPhoneLocalNumber'); 
dPhone_FaxNumber:=  getsmallfield  ('PhoneFaxnumber'); 
dEmail:=  getsmallfield  CEmail'); 

dANumberint:=  StrToInt(dANumber);  {  Convert  the  dANumber  back  to  an  integer  } 
with  Authors  do  begin 

{  Move  to  proper  record} 

open; 

first; 

while  fieldbyName('ANumber').asstring  o  dANumber  do 
next; 

{Update  record  } 
edit; 

SetFields([dANumberint,  dFName,  dLName,  dinitial,  dHonorific,  dinstitution,  dDepartment, 
dMailstop, 

dAddressStreet,  dAddress_City,  dAddressState,  dAddress_Zip,  dCountry, 

dPhoneLocalNumber,  dPhoneFaxNumber,  dEmail]); 

post; 

close; 

end;  {with  Authors} 
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{Send  the  Thankyou  page  } 

send  ('<P>The  information  about '  +  dHonorific  + ' '+  dFName  +' '+  dLName  +' '); 
send  Chas  been  updated  in  our  records.'); 
send  C<CENTER>'); 

send(’<PxFORM  ACTION="../cgi-win/InputAu.exe"  METHOD="POST">’); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value=="l">'); 
sendC<PxCENTERxINPUT  TYPE="submit"  Value="Edit  another 
Author"x/CENTERx/FORM>’); 
sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
send('<PxCENTERxlNPlJT  TYPE="submit"  Value="Retum  to  the  System  Admin 
Options  page"></CENTERx/FORM>'); 

end  {flag  is  valid} 

else  begin  {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 
sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 
send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 
send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 
again.  </A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 
send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 
send  ('prosecution  for  your  actions.<BR>'); 


send  ('<P><hr><PxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">'); 

send  (Return  to  the  <A  HREF="http;//131.120.20.70/Index.html">Asilomar'); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 

end;  {flag  **iiicorrect**} 

send  ('</BODYx/HTML>'); 
closeStdout; 
closeApp(  application  ); 
end;  {with  CGIEnvDatal} 

end;  {FormCreate} 
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end.  {Application} 


unit  Art_edit; 
interface 


Edit  an  Article;  ArtlEditexe 


uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 

TForml  =  class(TForm) 

CGIEnvDatal;  TCGIEnvData; 

CGIDB  1:  TCGIDB; 

DataSourcel:  TDataSource; 

Query  1:  TQuery; 

Tablel:  liable; 

Table2;  liable; 

Iable2ANumber;  IlntegerField; 

Iable2FName;  IStringField; 

Iable2LName:  IStringField; 

Iable2Initial;  IStringField; 

Iable2Honorific:  IStringField; 

Iable2Institution:  IStringField; 

Iable2Department:  IStrin^ield; 

Iable2Mailstop;  IStrin^ield; 

Iable2Address_Street:  IStringField; 

Iable2Address_City:  IStringField; 

Iable2Address_State:  IStringField; 

Iable2Address_Zip;  IStringField; 

Iable2Countiy:  IStringField; 

Iable2Phone_LocalNumber:  IStringField; 

Iable2Phone_AreaCode:  IStringField; 

Iable2Phone_FaxNumber;  IStringField; 

Iable2Email:  IStringField; 
lableS;  liable; 
lableSNumber:  IlntegerField; 
lableSNeumonic;  IStringField; 

QuerylNeumonic;  IStringField; 

DataSource2:  IDataSource; 

Query2;  IQuery; 

Iable4:  liable; 

QuerylNumber:  IlntegerField; 

Query2Name;  IStringField; 

Iable4Number:  IlntegerField; 
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Table4Naine:  TStringField; 

Query2Number:  TIntegerField; 

Table  lPaper_Number:  TIntegerField; 
TablelTitle:  TStringField; 

Tablelinvited:  TStringField; 

TablelAccepted;  TStringField; 

Table  1  ContactAuthorNumber:  TIntegerField; 
T  able  1  Session:  TStringF  ield; 
TablelOrderInSession:  TStringField; 
TablelPresentationTime:  TStringField; 
TablelKeywordl:  TStringField; 
TablelKeyword2:  TStringField; 
TablelKeyword3:  TStringField; 

Table  1  Abstract:  TMemoField; 

Table  IContactOrder:  TStrin^ield; 
TablelFName2:  TStringField; 
TablelLName2:  TStrin^ield; 

Tablellnitial2:  TStringField; 
TablelInstitution2:  TStringField; 
TablelOrder2:  TStringField; 

TablelFNameS:  TStrin^ield; 
TablelLName3:  TStrin^ield; 

Table  1  Initials:  TStringField; 
TablellnstitutionS:  TStringField; 

Table  1  Orders :  TStringField; 

Table lFName4:  TStringField; 
TablelLName4:  TStrin^ield; 

TablellnitiaM:  TStringField; 

Table  lInstitution4:  TStringField; 

Table  10rder4:  TStringField; 

TablelFNameS:  TStringField; 

Table  ILNameS:  TStringField; 

Table  llnitial5:  TStringField; 
TablellnstitutionS:  TStringField; 

Table  1  Orders :  TStrin^ield; 

TablelFNameb:  TStrin^ield; 

Table ILNameb:  TStringField; 

Tablellnitial6:  TStringField; 

Table  llnstitutionb:  TStringField; 

Table  lOrderb:  TStringField; 
procedure  FormCreate(Sender:  TObject); 

private 

{ Private  declarations } 
public 
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{  Public  declarations } 
end; 

var 

Forml:  TForml; 

dflag:  string;  {Valid  program  call} 

dbOption:  string;  {Which  action  is  requested} 

irinteger;  {loop  control  variable} 

implementation 

{$R  *.DFM} 

procedure  TForml.FormCreate(Sender;  TObject); 
begin 

with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 
application.onException;=cgiErrorHandler; 
application.  processMessages; 

createStdout; 

sendPrologue; 

send  ('<HTML><HEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  ('</lffiADxBODY  bgcolor=FFFFFF>'); 


{Determine  whether  flag  is  valid  } 

dflag:=  getsmallfield  ('flag'); 

if  (dflag  = '1')  then  begin  {flag  is  valid} 

send('<center><H2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 

send('In  order  to  select  the  Article  you  would  like  to  view,  you  will  have  to  select  it  from  a 
list  of  articles. '); 

send('You  have  three  options  for  building  this  list:<BR>'); 

{Display  ALL  Articles  } 
sendhr; 
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sendhdr  ('3',  'Choose  from  a  list  of  ALL  the  Articles?’); 
send('<PxFORM  ACTION="../cgi-win/ArtlSrch.exe"  METHOD="POST">'); 
send('<INPUT TYPE="hidden" Name=’'flag"  Value-' !">'); 
send('<IlSIPUT  TYPE="hidden"  Name="Type"  Value="aH">'); 

send('<P><CENTERxlNPUT  TYPE-'submit"  Value="Show  me  a  list  of  ALL  of  the  Paper 
Titles"x/CENTERx/FORM>'); 

{Search  by  Article  characteristics} 

send('<PxFORM  METHOD="POST"  ACTION="../cgi-win/ArtlSrch.exe">'); 
send('<INPUT  TYPE-'hidden"  Name="flag"  Value-'  1  ">');  {send  flag  for  verification) 
send('<INPUT  TYPE="hidden"  Name="Type"  Value="article">'); 

sendhr; 

sendhdr  ('3',  'Choose  from  a  list  of  Articles  with  these  characteristics?'); 

send('<PxcenterxB>Invited  Papers:  </BxSELECT  NAME="invited">'); 

send('<OPTION>  Do  not  search  on  this  field'); 

send('<OPTION>  Yes'); 

send('<OPTION>No'); 

send('</SELECT>'); 

send('<PxB>Accepted  Papers:  </BxSELECT  NAME="accepted">'); 

send('<OPTION>  Do  not  search  on  this  field'); 

send('<OPTION>  Yes'); 

send('<OPTION>No'); 

send('</SELECT>'); 

{Pull  Sessions  from  SESSION  Table  and  display  on  pull-down  menu} 

with  Query  1  do  begin 
close; 
sql.clear; 

sql.add('Select  Number,  Neumonic  FROM  Session'); 
open; 

{Build  option  menu  from  query  results } 

Table3.open; 

Table3.first; 


send('<P><B>Sessions:  </BxSELECT  NAME="Session">'); 
send('<OPTION>  Do  not  search  on  this  field'); 

for  i  :=  1  to  Recordcoimt  do  begin 

dbOption:=  Table3  .fieldByNameCNeumonic').  Asstring; 
send('<OPTION> '  +dbOption+ "); 

Table3.next; 

end;  {for  all  records  in  the  query  result} 
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send('</SELECT>’); 


Table  1.  close; 
end;  {withQueryl} 

{Pull  Keywords  from  KEYWORD  Table  and  display  on  pull-down  menu} 

with  Query2  do  begin 
close; 
sqlclear; 

sql.add('Select  *  FROM  Keyword '); 
open; 

{Move  records  from  query  result  to  stringlist} 

Table4.open; 

Table4.first; 

send('<PxB>Keyword:  </BxSELECT  NAME="Keyword">'); 
send('<OPTION>  Do  not  search  on  this  field'); 

while  not  Table4.EOF  do  begin 
dbOption:=Table4.fieldByName('Name').Asstring; 
send('<OPTION>  ’  +dbOption+ "); 

Table4.next; 

end;  {for  all  records  in  the  query  result} 
sendC</SELECT>'); 
end;  {withQueryl} 

send('<P><INPUT  TYPE="submit"  Value="Show  me  a  list  of  Articles  like  this"> '); 
sendC<INPUT  TYPE="reset"  VALUE="Reset  Article  Fields"x/CENTERx/form>’); 

{Search  by  Author  Name} 

send('<PxFORM  ACTION="../cgi-win/ArtlSrch.exe"  METHOD-"POST">'); 
send('<INPUT  TYPE- 'hidden"  Name="flag"  Value="  1  ">');  { send  flag  for  verification} 

send('<INPUT  TYPE="hidden"  Name="Type"  Value="author">'); 


sendhr; 

sendhdr  ('3',  'Choose  firom  a  list  of  Articles  by  this  Author?'); 

send  ('<P><CENTERxB>Author  First  Name:  </BxINPUT  NAME="fhame"  Size="25" 
TYPE="text">'); 

send  ('<P><B>Author  Last  Name:  </B><INPUT  NAME-'lname"  Size="25" 
TYPE="text">'); 

send('<PxINPUT  TYPE="submit"  Value="Find  an  Article  by  this  Author"> '); 
send('<INPUT  TYPE="reset"  VALUE="ClearNames"x/CENTERx/form>'); 
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sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD=’TOST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
send('<PxCENTERxlNPTJT  TYPE="submit"  Value="Retum  to  the  System  Admin 
Options  page"></CENTERx/FORM>'); 

send  C</BODYx/HTML>’); 

closeStdout; 
closeApp(  application ); 

end  {flag  is  valid} 

else  begin  {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 
sendhr; 

send  ('<centerxH2>Yoiir  password  was  <strong>not  accepted!  !</strongx/H2x^center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again.</A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 
send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal  ’); 
send  ('prosecution  for  your  actions.<BR>'); 


send  ('<PxhrxPxlMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">'); 

send  (Return  to  the  <A  HREF="http://131.120.20.70/Index.html">Asilomar'); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  ('</BODY></HTML>'); 

closeStdout; 

closeApp(  application ); 

end;  {flag  **incorrect**} 
end;  {with  cgiEnvDatal  do} 
end;  {FormCreate} 
end.  {Application} 
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unit  Artsrch; 
interface 


Search  for  the  Article:  ArtlSrch.exe 


uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 

TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

Query  1:  TQuery; 

Tablel:  liable; 

Table2:  liable; 

CGEEnvDatal:  ICGIEnvData; 

CGIDBl:  ICGIDB; 

Query2:  IQuery; 

DataSource2:  IDataSource; 

Query llitle:  IStringField; 

Queiy2Iitle:  IStringField; 

QuerylPaper_Number:  UntegerField; 

CGIDB2:  ICGHDB; 

Query2Paper_Number:  UntegerField; 
lableS:  liable; 

DataSourceS:  IDataSource; 

Query3:  IQuery; 

QuerySANumber:  UntegerField; 

CGIDB3:  ICGIDB; 

Query3FName:  IStringField; 

Query 3LName:  IStringField; 

Queiy3Initial;  IStringField; 

Query  3Honorific:  IStringField; 

QueTy3Institution:  IStringField; 

CGIDB4:  ICGIDB; 

DataSource4:  IDataSource; 

Iable4;  liable; 

Query4:  IQuery; 

Query4Paper_Number:  UntegerField; 

Query4Iitle;  IStringField; 
lable  1  Paper_Number:  UntegerField; 
lable llitle:  IStringField; 
lable  1  Invited:  IStringField; 
lable  1  Accepted:  IStrin^ield; 
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Table  1  ContactAuthorNumber:  TIntegerField; 
Tablel  Session:  TStringField; 

Table  lOrderlnSession:  TStrin^ield; 

Table  1  PresentationT  ime:  TStringF  ield; 
TablelKeywordl:  TStringField; 

Table  lKeyword2:  TStrin^ield; 
TablelKeywordS:  TStringField; 

Tablel  Abstract:  TMemoField; 

Table  IContactOrder:  TStringField; 

Table  lFNanie2:  TStringField; 
TablelLName2:  TStrin^ield; 

Table llnitial2:  TStringField; 
TablelInstitution2:  TStringField; 
TablelOrder2:  TStringField; 

Table  IFNameS:  TStringField; 
TablelLNameS:  TStringField; 

Tablellnitial3:  TStringField; 
TablellnstitutionS:  TStringField; 
TablelOrderS:  TStringField; 

Table  lFName4:  TStringField; 
TablelLName4:  TStringField; 

Table  llnitiaW:  TStringField; 
TablelInstitution4:  TStringField; 

Table  10rder4:  TStringField; 

TablelFNameS:  TStringField; 
TablelLNameS:  TStringField; 

TablellnitialS:  TStringField; 
TablellnstitutionS:  TStringField; 

Tablel  Orders :  TStringField; 

Table  IFNameb:  TStringField; 
TablelLName6:  TStringField; 

Tablellnitial6:  TStringField; 
TablelInstitution6:  TStringField; 

Table  10rder6:  TStringField; 
Table2Paper_Number:  TIntegerField; 
Table2Title:  TStringField; 

Table2Invited:  TStringField; 

Table2Accepted:  TStringField; 
Table2ContactAuthorNumber:  TIntegerField; 
Table2Session:  TStrin^ield; 
Table20rderInSession:  TStringField; 
Table2PresentationTime:  TStringField; 
Table2Keywordl:  TStringField; 
Table2Keyword2:  TStrin^ield; 
Table2Keyword3:  TStringField; 
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Table2 Abstract;  TMemoField; 
Table2ContactOrder:  TStringField; 
TabIe2FName2:  TStrin^ield; 
Table2LName2;  TStringField; 

Table2Initial2:  TStringField; 
Table2Institution2:  TStringField; 
Table20rder2:  TStrin^ield; 

Table2FName3:  TStringField; 
Table2LName3:  TStrin^ield; 

Table2Initial3;  TStringField; 
Table2Institution3:  TStringField; 
Table20rder3;  TStringField; 

Table2FName4;  TStringField; 
Table2LName4:  TStringField; 

Table2Initial4;  TStringField; 
Table2Institution4:  TStringField; 
Table20rder4:  TStringField; 

Table2FName5:  TStringField; 
Table2LName5:  TStrin^ield; 

Table2Initial5:  TStringField; 
Table2Institution5:  TStrin^ield; 
Table20rder5:  TStrin^ield; 

Table2FName6;  TStringField; 
Table2LName6;  TStringField; 

Table2Initial6:  TStringField; 
Table2Institution6:  TStringField; 
Table20rder6:  TStringField; 

T  able4Paper_Number:  TIntegerField; 
Table4Title:  TStringField; 

Table4Invited:  TStringField; 
Table4Accepted;  TStringField; 
Table4ContactAuthorNumber:  TIntegerField; 
Table4Session;  TStringField; 
Table40rderInSession;  TStringField; 
Table4PresentationTime;  TStringField; 
Table4Keywordl:  TStringField; 
Table4Keyword2;  TStringField; 
Table4Keyword3:  TStrin^ield; 
Table4Abstract:  TMemoField; 
Table4CoiltactOrder;  TStringField; 
Table4FName2:  TStringField; 
Table4LName2:  TStringField; 

Table4Initial2;  TStringField; 
Table4Institution2:  TStringField; 
Table40rder2;  TStringField; 
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Table4FName3:  TStringField; 

TabIe4LName3:  TStringField; 

Table4Initial3:  TStringField; 

Table4Institution3:  TStringField; 

Table40rder3:  TStringField; 

Table4FName4:  TStringField; 

Table4LName4:  TStringField; 

Table4Initial4:  TStringField; 

Table4Institution4;  TStrin^ield; 

Table40rder4:  TStringField; 

Table4FName5;  TStringField; 

Table4LName5:  TStringField; 

Table4Initial5:  TStringField; 

Table4Institution5;  TStringField; 

Table40rder5:  TStringField; 

Table4FName6;  TStringField; 

Table4LName6:  TStringField; 

Table4Initial6;  TStringField; 

Table4Institution6:  TStringField; 

Table4C)rder6;  TStringField; 

TableSANumber:  TlntegerField; 

Table3LName:  TStringField; 

Table3FName;  TStringField; 

Table3Initial:  TStringField; 

Table3Honorific:  TStringField; 

Table3Institution:  TStringField; 

Table3Department:  TStringField; 

Table3Mailstop;  TStringField; 

Table3Address_Street:  TStringField; 

Table3Address_City:  TStringField; 

Table3Address_State:  TStringField; 

Table3Address_Zip;  TStrin^ield; 

Table3Country:  TStringField; 

Table3Phone_LocalNumber:  TStringField; 
Table3Phone_FaxNumber:  TStringField; 

Table3Email:  TStringField; 
procedure  FormCreate(Sender;  TObject); 
procedure  CGIDB10nSendin^otField(currentRecord:  TDataset; 
var  s;  OpenString); 

procedure  CGIDB20nSendingHotField(currentRecord:  TDataset; 
var  s:  OpenString); 

procedure  CGIDB3SendingHotField(currentRecord:  TDataset; 
var  s:  OpenString); 

procedure  CGIDB4SendingHotField(currentRecord:  TDataset; 
var  s:  OpenString); 
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private 

{ Private  declarations  } 
public 

{ Public  declarations  } 
end; 

var 

Forml:  TForml; 

function  MixCaseStr(S:  string):  string; 
implementation 
{$R*.DFM} 

function  MixCaseStr(S:  string):  string; 

{ This  function  converts  a  string  to  Mixed  case. 

That  is  Capital  first  letter  and  the  rest  lower  case. } 

var 

i:  integer; 
begin 

if  (S[l]  >=  'a')  and  (S[l]  <=  'z')  then 

Dec(S[l],32); 

for  i  :=  2  to  Length(S)  do 

if  (S[i]  >=  'A')  and  (S[i]  <=  'Z')  and  (S[i-l]o’ ')  and  (S[i-l]o'-')  and  (S[i-l]o'c')  then 
Inc(S[i],32); 

MixCaseStr  :=  S; 


end; 


procedure  TForml. FormCreate(Sender:  TObject); 
var 

ANumberlist:  Tstringlist;  {list  of  ANumber  retrieved  from  AUTHOR  Table  which  match 
query  name  request} 

i,  count:  integer;  {loop  variable} 

TempANumber:  string; 
temp:string; 

dbANumber:  string; 
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countstr:  string; 
dPaperNumber;  string; 
dflag:  string; 
dtype:  string; 

dinvited:  string; 
daccepted:  string; 
dfhamein:  string; 
dlnamein:  string; 
dfhame:  string; 
dlname:  string; 
dSession:  string; 
dkeyword:  string; 

MySelector:  integer; 

ANumberint:  integer; 

TC:  TDataSet; 

begin 

with  CGIEnvDatal  do  begin 
{Standard  Header} 
webSiteINIFilenanie:=paramstr(  1 ); 
application.onException:=cgiErrorHandler; 
application.processMessages; 
createStdout; 
sendProIogue; 

(HTML  Header} 

send  (’<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  ('</HEAD><BODY  bgcolor=FFFFFF>'); 


{Determine  whether  flag  is  valid} 
dflag”  getsmallfield  ('flag'); 
if(dflag  =  'r)  then  begin  (flag  is  set} 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x;/center>'); 
sendhr; 
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{ Get  type  from  search  page } 
dtype;=  getsmallfield  ('type'); 


{  Flag  to  determine  type  of  search  } 


{Decide  what  action  is  required} 
if  dtype  =  'all'  then  MySelector  :=  1; 
if  dtype  =  'article'  then  MySelector  :=  2; 
if  dtype  =  'authof  then  MySelector  :=  3; 

case  MySelector  of 
1 :  begin  {ALL} 

with  Query  1  do  begin 

prepare;  {  Optimizes  query  } 

close; 

sql.  clear; 

sql.add('Select  *  FROM  Submissi'); 
sql.add(  'Order  by  Title ' ); 
open; 

count:=  Recordcount; 
countstr;=  inttostr  (count); 

send('<Pxcenter>There  are '  +countstr+ '  records  in  the  Submission  Table.<P>'); 
CGBDBl.drawtable;  {display  all  titles} 
send  ('</center>'); 
end;  {  with  Query  1} 

end;  {if  all} 

2:  begin  {Article} 

dinvited;=  getsmallfield  ('invited'); 
daccepted:=  getsmallfield  ('accepted'); 
dsession:=  getsmallfield  ('session'); 
dkeyword:=  getsmallfield  (Tceyword'); 

if  (dinvited  =  'Do  not  search  on  this  field')  and  (daccepted  =  'Do  not  search  on  this  field') 
and  (dsession  =  Do  not  search  on  this  field')  and  (dkeyword  =  Do  not  search  on  this 

field') 

then  begin 

{another  ALL  search} 

with  Query  1  do  begin 

prepare;  {  Optimizes  query  } 

close; 

sql.clear; 
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sql.add('Select  *  FROM  Submissi'); 
sql.add(  'Order  by  Title ' ); 
open; 

count”  Recordcount; 
countstr;=  inttostr  (count); 

send('<P><center>There  are '  +countstr+ '  records  in  the  Submission  Table. <P>'); 
CGEDB 1  .drawtable;  {display  all  titles} 
send  ('</center>'); 
end;  {  with  Query  1} 
end  {if  nothing  selected} 

else  begin  {article} 

{Do  the  article  query  requested} 

(Find  the  Titles  that  match  the  request} 
with  Queiy2  do  begin 

close; 

sql.clear; 

sql.add(’Select*FROM  Submissi  WHERE '); 

{Invited} 

if  dinvited  =  'Yes'  then 
sql.add  ('Invited  =  "y"') 
else  if  dinvited  = 'No' then 
sql.add  (Invited  =  "n"'); 


if  (daccepted  o  Do  not  search  on  this  field')and  (sql.count  =  2)  then 
sql.add  ('  and ');  {need  an  'and'  between  statements} 

{Accepted} 

if  daccepted  =  'Yes'  then 
sql.add  ('accepted  =  "y"') 
else  if  daccepted  =  'No'  then 
sql.add  ('accepted  =  "n"'); 

{Session} 

if  (dsession  o  Do  not  search  on  this  field')  and  (sql.count  >=  2)  then 
sql.add  ('  and ');  {need  an  'and'  between  statements} 

if  (dsession  o  Do  not  search  on  this  field')  then 
sql.add  ('Session  = '"  +dsession+  ""); 

{Keyword} 

if  (dkeyword  o  Do  not  search  on  this  field')  and  (sql.  count  >=  2)  then 


265 


sql.add  ('  and ');  {need  an  'and*  between  statements} 
if  (dkeyword  o  Do  not  search  on  this  field')  then 

sql.add  ('(Keywordl  = +dkeyword+  or  Keyword2  = +dkeyword+  or  Keywords  = 
+dkeyword+ 


open; 

send  ('<center>'); 
if  recordcount  =  0  then  begin 

sendhdr('2',  'There  were  no  records  that  matched  your  query!'); 
send('You  may  <a  href="../cgi-win/ArtlEdit.exe">Do  another  Queiy</a>  of  the 
Database.'); 

send  ('</centerxp>'); 
end 

else  begin 

CGIDB2.  drawTable; 
send  ('</centerxp>'); 

send('Here  are  the  Titles  that  match  your  request.  Click  on  the  Title  Name  for  the  record 
you  would  like '); 

send('to  view.<p>If  you  believe  the  record  you  are  looking  for  is  under  another  name,'); 
send('  you  may  <a  href="../cgi-win/ArtlEdit.exe">Do  another  Query</a>  of  the 
Database.'); 
end; 


end;  {query2} 
end;  {else} 
end;  {case  article} 

3:  begin  {author} 

{Get  Author  Name} 
dFNamein:=  getsmallfield  ('fhame'); 
dfhame:=  MixCaseStr(dFNamein); 

dLNamein:=  getsmallfield  ('Iname'); 
dlname:=  MixCaseStr(dLNamein); 

{Find  out  if  name  is  in  contact  authors.  Only  the  last  name  is  required, 
but  the  first  name  will  help  narrow  the  search. } 

if  (dlname  o ")  then  begin 
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(Search  for  name  in  AUTHOR  Table} 
with  QueiyS  do  begin 
close; 
sql.clear; 

(If  both  the  first  and  last  name  is  given,  search  for  match  on  both} 
if  (dfhame  o ")  then 

sql.add('Select  *  FROM  Author  WHERE  FName  = +dfhame+ and  LName  = 
+dlname+ "") 

(Only  the  last  name  is  given,  so  search  only  on  it} 
else 

sql.add('Select  ANumber  FROM  Author  WHERE  LName  = +dlname+ 

(execute  the  Query} 
open; 

(Display  results} 

send  ('<Pxcenter>'); 

If  Recordcount  >  0  then  begin 
CGIDB3  .DrawTable; 

send('<P>If  the  Author  sought  was  not  the  Contact  Author  for  the  paper,  their  name  will 
not  appear'); 

sendC  on  this  list.  To  continue  the  search,  click  on  the  "Not  a  Contact  Author"  button 
below.'); 

send('<PxFORM  ACTION="../cgi-win/ArtlAuth.exe"  METHOr)='TOST">'); 
send('<INPlJT  TYPE="hidden"  Name="flag"  Value="l">’); 
send('<INPUT  TYPE="hidden"  Name="getauthor"  Value="NotContactAuthor">'); 
send('<INPUT  TYPE—'hidden"  Name="fhame"  Value='"  +dfhame+  '">'); 
send('<INPUT  TYPE="hidden"  Name="lname"  Value='"  +dlname+  '">'); 
send('<PxCENTERxINPUT  TYPE="submit"  Value="  Not  a  Contact  Author 
"></CENTERx/FORM>'); 
end 


else  begin  (The  name  is  not  a  ontact  Author  so  do  the  search  on  Other  Anthers  only} 

with  Query4  do  begin 
close; 
sql.clear; 

sql.add('Select*FROM  Submissi  WHERE '); 

(If  there  is  a  First  name  given,  then  search  for  first  and  last  name  match  in 
Other  Authors} 
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if  dfhame  o "  then 

sql.add  ('(LName2  = +dlname+  and  FNanie2  ="'  +dfhame+  "')  or  (LName3 

Ilf 

+dlname+ and  FNameS  -  "  +dfhanie+ "')  or  (LNanie4  =  ’"+dlname+  and 

FName4  ='" 

+dfiiame+ "')  or  (LNameS  = +dlname+ and  FNameS  = +dfiianie+ "')  or 
(LName6  = +dlname+ and  FNamed  ="'  +dfhame+ 

{Otherwise,  search  only  for  last  name  match  in  Other  Authors} 

else  sqladd  ('(LName2  = +dlname+  or  LNameS  =  "’+dlname+  or  LName4 

111 

+dlnaine+ or  LNameS  =  +dlname+ or  LName6  =  "'+dlname+ 


open; 

If  Recordcount  >0  then  CGIDB4.DrawTable 

else  send('There  are  no  Authors  in  the  database  with  the  name  <B>'  +  dfhame  + ' ' 
dlname  +  '</B>.'); 

send('<PxFORM  ACTION="../cgi-win/ArtlEdit.exe"  METHOD="POST">'); 
send(’<INPlJT  TYPE="hidden"  Name="flag"  Value='’l">'); 
send('<PxCENTERxINPlJT  TYPE="submit"  Value="Query  another 
Article"x/CENTERx/FORM>'); 
end;  {with  query4} 

end;  {if  recordcount  >  0} 

end;  {withQueryS} 

end  {If  dlname  o"  then} 

else  begin 

sendhdr('2’,  'You  must  enter  a  last  name!'); 

send('<PxFORM  ACTION="../cgi-win/ArtlEdit.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
send('<P><CENTERxINPUT  TYPE="submit"  Value="Query  another 
Article"x/CENTERx/FORM>'); 

end;  {If  dlname  o’*  else} 

end;  {case  author} 
end;  {case} 

{  HTML  Footer} 
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sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">’); 
send('<INPUT  TYPE="hidden"  Name="£lag"  Value="l">'); 
send('<P><CENTERxINPUT  TYPE— 'submit"  Value="Retum  to  the  System  Admin 
Options  page"></CENTERx/FORM>'); 
send  C</BODYx/HTML>’); 
closeStdout; 
closeApp(  application ); 
end  {flag  is  valid} 

else  begin  {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2></center>'); 
sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strong></H2></center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF- '../prototype/admin20.htm">try  to  login 

again.</A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 
send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 
send  ('prosecution  for  your  actions.<BR>'); 


send  ('<Pxhr><PxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">'); 

send  (Return  to  the  <A  HREF="ht^://13 1 . 120.20.70/Index.html">Asilomar’); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 

end;  {flag  **incorrect**} 
end;  {with  cgiEnvDatal  do} 
end;  {Procedure  TForml.FormCreate} 


procedure  TForml.CGIDB10nSendingHotField(currentRecord:  TDataset; 
var  s:  OpenString); 

begin 

s;-<AHREF-'../cgi-win/ArtlView.exe?'+ 
currentrecord.fieldbyName('Paper_Number').AsString  +  '">' 

+  currentrecord.FieldbyName('Title').  AsString  +  '</A>'; 
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end;  {Procedure  TForml.CGIDBlOnSendingHotField} 

procedure  TFomil.CGIDB20nSendingHotField(ciirrentRecord:  TDataset; 
var  s:  OpenString); 
begin 

s:='<AHREF="../cgi-win/ArtlView.exe?'+ 
currentrecord.fieIdbyName('Paper_Nximber').AsString  + 

+  currentrecord.FieldbyNanie(Title').AsString  +  '</A>'; 

end;  {Procedure  TForml.CGIDBlOnSendingHotField} 

procedure  TForml.CGIDB3SendingHotField(currentRecord:  TDataset; 
var  s:  OpenString); 
begin 

s;-<A  HREF="../cgi-win/ArtlAuth.exe?’+  currentrecord.fieldbyName('ANuniber’).AsString  + 

+  currentrecord.FieldbyName(’ANuniber’).  AsString  +  '</A>'; 

end;  {Procedure  TForml.CGIDBSOnSendingHotField} 

procedure  TForml.CGE)B4Sendin^otField(currentRecord:  TDataset; 

var  s:  OpenString); 
begin 

s:- <A  HREF=".  ./cgi-win/ArtlView.exe?'+ 
currentrecord.fieldbyName(Taper_Number').  AsString  + 

+  currentrecord.FieldbyNaine('Title’).AsString  +  '</A>'; 

end;  {Procedure  TForml.CGIDB40nSendingHotFieId} 

end. 
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unit  Artauth; 
interface 


Article  by  Author;  ArtlAuth.exe 


uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 

TForml  ==  class(TForm) 

CGIEnvDatal:  TCGBEnvData; 

CGIDBl;  TCGIDB; 

DataSourcel:  TDataSource; 

Query  1:  TQuery; 

Tablel:  liable; 

QuerylPaperNumber:  TIntegerField; 

QuerylTitle:  TStringField; 

Query2;  TQuery; 

DataSource2;  TDataSource; 

Tables:  TTable; 

Table2;  TTable; 

DataSourceS:  TDataSource; 

Query2Paper_Number;  TIntegerField; 

Query2Title:  TStringField; 

CGIDB2:  TCGIDB; 

Table  IPaper  Number;  TIntegerField; 

Tablel  Title;  TStringField; 

Tablelinvited:  TStringField; 

Tablel  Accepted;  TStringField; 

Table  1  ContactAuthorNumber:  TIntegerField; 

Tablel  Session;  TStringField; 

Table  1  OrderInSession;  TStringField; 

T able  1  Presentation! ime;  TStringf  ield; 

Table  IKeywordl:  TStringField; 

TablelKeyword2:  TStringField; 

TablelKeywordS:  TStringField; 

Tablel  Abstract:  TMemoField; 

Table  IContactOrder;  TStringField; 

TablelFName2:  TStringField; 

TablelLName2;  TStringField; 

Tablellnitial2:  TStrin^ield; 

TablelInstitution2;  TStringField; 

TablelOrder2:  TStringField; 
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Table  lE^ameS:  TStringField; 

Table  ILNameS;  TStringField; 

TablellnitiaB:  TStringField; 
TablellnstitutionS:  TStringField; 
TablelOrderS;  TStringField; 

Table  lFNanie4:  TStringField; 
TablelLName4:  TStringField; 

Tablellnitial4;  TStringField; 
TablelInstitution4;  TStringField; 
TablelOrder4:  TStringField; 

Table  IFNameS:  TStringField; 
TablelLNameS:  TStringField; 

TablellnitialS:  TStringField; 
TablellnstitutionS:  TStringField; 

Table  lOrderS:  TStrin^ield; 

TablelFNameb:  TStrin^ield; 
TablelLNameb:  TStringField; 

Table  llnitial6:  TStringField; 
Tablellnstitutionb:  TStringField; 
TablelOrderb:  TStrin^ield; 

TableSPaper  Number:  TlntegerField; 
TableSTitle:  TStringField; 

TableSInvited:  TStringField; 

TableSAccepted:  TStrin^ield; 
TableSContactAuthorNumber;  TlntegerField; 
TableSSession:  TStringField; 
TableSOrderInSession:  TStringField; 
TableSPresentationTime:  TStringField; 
TableSKeywordl:  TStringField; 
Table3Keyword2:  TStringField; 
Table3Keyword3:  TStringField; 
Table3Abstract:  TMemoField; 
Table3ContactOrder:  TStringField; 
Table3FName2:  TStringField; 
Table3LName2:  TStringField; 

Table3Initial2:  TStringField; 
Table3Institution2:  TStringField; 
Table30rder2:  TStringField; 

Table3FName3:  TStringField; 
Table3LName3:  TStringField; 

Table3Initial3:  TStrin^ield; 
Table3Institution3;  TStringField; 
Table30rder3:  TStringField; 

Table3FName4:  TStringField; 
Table3LName4:  TStringField; 
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Table3Imtial4:  TStringfield; 

Table3Institution4:  TStringField; 

Table30rder4:  TStringField; 

Table3FName5:  TStringField; 

Table3LNanie5:  TStringField; 

Table3Initial5:  TStringField; 

Table3Institution5:  TStringField; 

Table30rder5:  TStringField; 

Table3FName6:  TStringField; 

Table3LName6:  TStringField; 

Table3Initial6:  TStrin^ield; 

Table3Institution6:  TStringField; 

Table30rder6;  TStringField; 
procedure  FormCreate(Sender:  TObject); 
procedure  CGIDBlSendingHotField(currentRecord:  TDataset; 
var  s:  OpenString); 

procedure  CGIDB2SendingHotField(currentRecord:  TDataset; 
var  s:  OpenString); 

procedure  CGIDB3SendingHotField(currentRecord:  TDataset; 
var  s;  OpenString); 
private 

{ Private  declarations } 
public 

{ Public  declarations } 
end; 

var 

Forml:  TForml; 

dflag;  string;  {valid  program  call) 

dANumber,  dANumberstr:  string; 
dFName ;  string; 
dLName ;  string; 

dGetAuthor;  string; 

dANumberint,  count  1,  count2;  integer; 
implementation 
{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
begin 


273 


with  CGIEnvDatal  do  begin 


{Standard  Header) 

webSiteINIFilenaine;=paranistr(  1 ); 

application.onException:=cgiErrorHandler; 

application.  processMessages; 

createStdout; 

sendPrologue; 

{HTML  Header) 
send  ('<HTM1XHEAD>’); 

SendTitIe('Asilomar  Signals,  Systems,  and  Computers'); 
send  ('</HEADxBODY  bgcolor=FFEFFF>'); 

{Determine  whether  flag  is  valid) 
dflag:=  getsmallfield  ('flag'); 

if  (dflag  =  '1')  then  begin  {flag  is  set) 

send('<centerxH2>Asilomar  Conference  System  Administration</H2></center>'); 
sendhr; 


{Find  Author  name  to  use  in  search  for  article) 

{Get  flelds  from  search  page. 

If  a  contact  author  was  not  found,  then  will  get  the  string  'NotContactAuthor*  and  will 
proceed  with  a  search  of  the  Other  Authors 

If  a  contact  author  was  found,  then  will  get  the  query  string  with  the  'ANumber'. ) 


try 

{ Get  the  FORM  information  ) 

dGetAuthor:=  getsmallfield  ('GetAuthor'); 
dfhame:=  getsmallfield  ('fhame'); 
dlname;=  getsmallfield  ('Iname'); 
finally 

{Get  the  ANumber  string  from  the  address) 

dANumber  ;=  CGIQueryString'^; 
end; 

if  dGetAuthor  o  cginotfound  then  begin 
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{There  was  NOT  a  Contact  Author  match} 

{  if  dGetAuthor  =  'NotContactAuthor*  then  begin  } 

(Find  the  Titles  that  match  the  name  in  Other  Authors  only} 
with  Queiyl  do  begin 

(query  on  names  in  Other  Authors  only} 

close; 

sql.clear; 

sql.add('Select*FROM  Submissi  WHERE  ’); 

{If  there  is  a  First  name  given,  then  search  for  first  and  last  name  match  in  Other 
Authors} 

if  dfhame  o "  then 

sqladd  ('(LName2  = +dlname+  and  FName2  ="'  +dfhame+  ’")  or  (LName3  = 
+dlname+  and  FNameS  ="'  +dfhanie+  "')  or  (LName4  =  "'+dlname+  and  FName4 

+dfhaine+  "')  or  (LNameS  = +dlname+  and  FNameS  = +dfhame+ "’)  or  (LName6 

_  in 

+dlname+  and  FName6  ="'  +dfhame+ 

{Otherwise,  search  only  for  last  name  match  in  Other  Authors} 
else  sqladd  ('(LName2  = +dlname+  or  LNameS  =  '"+dlname+ or  LName4  = 
"'+dlname+  or  LNameS  = 

+dlname+  or  LName6  =  "'+dlname+ 

{execute  the  query} 
open; 

{Display  the  results} 
if  recordcount  >  0  then  begin 

send('<center>'); 

CGIDB 1  .Drawl  able; 
send('</center>'); 

sendC<PxFORM  ACTION="../cgi-win/Artledit.exe"  METHOD="POST">’); 
sendC<INPUT  TYPE="hidden"  Name="flag"  Value="l">’); 
send(’<PxCENTERxINPUT  TYPE="submit"  Value="Search  for  another 
Article"x/CENTERx/FORM>'); 

end 

else  begin  {No  Authors  found} 
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send(There  are  no  Articles  in  the  database  with  the  Author  <B>’  +  dfhame  +  "  + 
dlname  +  '</B>.'); 

send('<PxFORM  ACTION="../cgi-win/ArtlEdit.exe"  METHOD="POST">’); 
send('<INPUT  TYPE="hidden"  Name='’flag"  Value="l">’); 
send('<PxCENTERxINPUT  TYPE- ’submit"  Value- 'Query  another 
Article"x/CENTERx/FORM>’); 
end;  {if} 

close; 

end;  {withqueryl} 

end  {ifdGetAuthor  =  ’NotContactAuthor’  then} 

else  begin  (There  was  a  contact  author  match} 

(Find  the  Titles  that  match  the  name  in  Other  Authors  ’’’and'*'  in 
ContactAuthorNumber} 

(Get  name  of  author} 

with  table2  do  begin 

open; 

first; 

while  fieldbyname('ANumber').asstring  o  dANumber  do 
next; 

dfhame:=  fieldbyname  ('FName').asstring; 
dlname:=  fieldbyname  ('LName').asstring; 
close; 

end;  {withtabl2} 

(Search  for  Titles  with  contactauthornumber} 

with  Query2  do  begin 

(execute  the  query} 
dANumberint”  strtoint  (dANumber); 

Query2.ParamByName('ANumber').AsInteger  :=  dANumberint; 
open; 

coimtl  :=  recordcount; 

(Display  the  results} 
if  recordcount  >  0  then  begin 

send('<Pxh4>The  Author  ’  +dfhame+ ' '  +dlname+ '  was  a  Contact  Author  for  these 
Articles.</h4>'); 
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send('<center>'); 

CGIDB2.DrawTable; 

send('</center>'); 

end; 

end;  {With  Query2} 

with  Queryl  do  begin 

(query  on  names  in  Other  Authors  only} 

close; 

sql.clear; 

sql.add('Select*FROM  Submissi  WHERE '); 

sql.add  ('(LName2  =  +dlname+  and  FName2  -  "  +dfhame+ "')  or  (LNameS  = 

+dlname+  and  FNameS  ="'  +dfhame+ "')  or  (LName4  =  '"+dlname+  and  FName4 

+dfhame+ "')  or  (LNameS  = +dlname+  and  FNameS  =  +dfiiame+  ’")  or  (LName6 

t 

+dlname+  and  FName6  -  "  +dfhame+ 


{execute  the  query} 

open; 

coimt2:-  recordcount; 

{Display  the  results} 
if  recordcount  >  0  then  begin 

send('<Pxh4>The  Author '  +dfhame+ ' '  +dlname+ '  was  not  the  Contact  Author  for 
these  Articles.</h4>'); 

send('<center>'); 

CGIDB 1  .DrawT  able; 

send('</center>'); 

end; 

end;  {with  Queryl} 

if  (coimtl  =  0)  and  (count2  =  0)  then  begin 

send('There  are  no  Articles  in  the  database  with  the  Author  <B>'  +  dfname  +  "  + 
dlname  +  '</B>.'); 

send(’<PxFORM  ACTION="../cgi-win/ArtlEdit.exe"  METHOD="POST">’); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
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send('<PxCENTERxINPUT  TYPE=''submit"  Value="Query  another 
Article"x/CENTERx/FORM>'); 
end;  {if} 

end;  {else} 

{  HTML  Footer} 
sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">’); 
sendC<I]SIPUT  TYPE="hidden"  Name=''flag"  Value=’T">'); 

send('<PxCENTERxINPlJT  TYPE- 'submit"  Value="Retum  to  the  System  Admin  Options 
page"X/CENTERx/FORM>'); 
send  C</BODYx/HTML>'); 
closeStdout; 
closeApp(  application  ); 


end  {flag  is  set) 

else  begin  {Password  **incorrect**} 

send('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 
sendhr; 

send('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again.</A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 
send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 
send  ('prosecution  for  your  actions.  <BR>'); 


send('<PxhrxPxIMG  SRC="../prototype/asil2b0.gif  "  align=left  alt="Asilomar  facility">'); 

send(Retum  to  the  <A  HREF="http://131.120.20.70/Index.html">Asilomar'); 

send('Conference  On-line  Submission  Page</A>'); 

send('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application  ); 

end;  {Password  **incorrect**} 


end;  {with  CGIEnvData} 
end;  {Tforml} 
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procedure  TForml.CGIDBlSendingHotField(currentRecord:  TDataset; 
var  s;  OpenString); 
begin 

s;- <A  HREF-'.  ./cgi-win/Artl  View.  exe?'+ 
currentrecord.fieldbyNaine(Taper_Number').AsString  + 

+  currentrecord.FieldbyName(Title').AsString  +  '</A>'; 

end; 

procedure  TForml.CGIDB2SendingHotField(curTentRecord:  TDataset; 
var  s:  OpenString); 
begin 

s:- <A  HREF=".  ./cgi-win/Artl  View.  exe?'+ 
currentrecord.fieldbyName(Taper_Number').  AsString  + 

+  currentrecord.FieldbyNanie('Title').  AsString  +  '</A>'; 

end; 

procedure  TFomil.CGIDB3SendingHotField(currentRecord:  TDataset; 
var  s:  OpenString); 
begin 

s:-<A  HREF- '../cgi-win/ArtlView.exe?'+ 
currentrecord.fieldbyName('Paper_Number’).  AsString  + 

+  currentrecord.FieldbyNanie('Title').  AsString  +  '</A>'; 

end; 

end. 
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unit  Art_view; 
interface 


View  the  Article;  ArtlView.exe 


uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 

TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

Tablel;  TTable; 

CGIEnvDatal;  TCGIEnvData; 

CGIDBl:  TCGIDB; 

Table2:  TTable; 

Query  1;  TQuery; 

DataSource2:  TDataSource; 

Keywords:  TTable; 

KeywordsNumber;  TIntegerField; 

KeywordsName:  TStrin^ield; 

Query  INumber;  TIntegerField; 

Query  1  Name;  TStringField; 
procedure  FonnCreate(Sender:  TObject); 
private 

{  Private  declarations } 
public 

{  Public  declarations } 
end; 


var 

Forml:  TForml; 

theabstract ;  TStringList; 
i:  integer; 

dPaper_Number:  string; 
dbOption:  string; 

dbtitle:  string; 
dbinvited:  string; 
dbaccepted:  string; 
dbANumber:  string; 


280 


dbSession;  string; 
dbOrderlnSession, 
dbPresentationTime;  string; 

dbkeywordl;  string; 
dbkeyword2:  string; 
dbkeywordS:  string; 
dbabstract:  string; 
dbcontactOrder:  string; 

dbfhame2:  string; 
dblname2:  string; 
dbinitial2:  string; 
dbinstitution2:  string; 
dborder2;  string; 

dbfiiameS:  string; 
dblnameS:  string; 
dbinitialS;  string; 
dbinstitutionS:  string; 
dborderS;  string; 

dbfhame4:  string; 
dblnanie4:  string; 
dbinitiaW:  string; 
dbinstitution4:  string; 
dborder4:  string; 

dbfhameS:  string; 
dblname5;  string; 
dbinitialS:  string; 
dbinstitutionS:  string; 
dborderS:  string; 

dbfhameb:  string; 
dblnameb:  string; 
dbinitialb:  string; 
dbinstitutionb:  string; 
dborderb:  string; 

dbFName :  string; 
dbLName :  string; 
dbHonorific :  string; 


implementation 


{$R  *.DFM} 


procedure  TForml.FonnCreate(Sender:  TObject); 
begin 

with  CGIEnvDatal  do 
begin 

webSiteINIFiIename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 

{ Get  the  Paper  Number  Selected} 

dPaper_Number:=  CGIQueryString'^; 

{  Get  the  Paper  Record  from  the  SUBMISSION  Table  } 

with  Tablel  do  begin 

{ Move  to  proper  record} 

open; 

first; 

while  fieldbyName(Paper_Niimber').asstring  o  dPaperNumber  do 
next; 

{ Retrieve  record  } 
dbtitle:=  fieldByName  ('title').asstring; 
dbinvited"  fieldByName  ('invited').asstring; 
dbaccepted:=  fieldByName  ('accepted').asstring; 
dbANumber;=  fieldByName  ('ContactAuthorNumber').asstring; 
dbSession:=  fieldByName  ('Session').asstring; 
dbOrderInSession—  fieldByName  (’OrderlnSession’).asstring; 
dbPresentationTime:=  fieldByName  (PresentationTime').asstring; 

dbkeywordl:=  fieldByName  ('keywordr).asstring; 
dbkeyword2~  fieldByName  (’keyword2').asstring; 
dbkeyword3:=  fieldByName  ('keyword3').asstring; 

CGIDBl.memoToStringList  (fieldbyname  ('Abstract'),  theabstract); 

dbcontactOrder:=  fieldByName  ('contactOrder').asstring; 

dborder2:=  fieldByName  ('order2').asstring; 
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dbfhame2~  fieldByName  ('fiiame2').asstring; 
dbinitial2;=  fieldByName  ('imtial2').asstring; 
dblname2:=  fieldByName  ('lname2').asstring; 
dbinstitution2:=  fieldByName  ('institution2').asstring; 

dborder3;=  fieldByName  ('order3').asstring; 
dbfhame3:=  fieldByName  ('fhame3').asstring; 
dbinitial3~  fieldByName  ('initial3').asstring; 
dblname3;=  fieldByName  ('lname3').asstring; 
dbinstitution3:=  fieldByName  ('institutioii3').asstring; 

dborder4:=  fieldByName  ('order4').asstring; 
dbfhame4;=  fieldByName  ('fname4').asstring; 
dbinitial4:=  fieldByName  ('imtial4').asstring; 
dblname4;=  fieldByName  ('lname4').asstring; 
dbinstitution4:=  fieldByName  ('institution4').asstring; 

dborder5:=  fieldByName  ('order5').asstring; 
dbfiiameS—  fieldByName  ('fiiame5').asstring; 
dbinitial5:=  fieldByName  ('initials'),  asstring; 
dblname5;=  fieldByName  ('lname5').asstring; 
dbinstitution5:=  fieldByName  ('institution5').asstring; 

dborder6:=  fieldByName  ('order6').asstring; 
dbfhame6:=  fieldByName  ('fname6').asstring; 
dbinitial6:=  fieldByName  ('imtial6').asstring; 
dblname6:=  fieldByName  ('lname6').asstring; 
dbinstitution6:=  fieldByName  ('institution6').asstring; 
end; 

{  Get  Author  Name  information  from  the  AUTHOR  Table } 
with  Table2  do  begin 

{ Move  to  proper  record} 

open; 

first; 

while  fieldbyName('ANumber').asstring  o  dbANumber  do 
next; 

{ Retrieve  Author  Name  information } 
dbFName  :=  fieldByName('FName').AsString; 
dbLName  :=  fieldByName('LName').AsString; 
dbHonorific  :=  fieldByNameCHonorific').  AsString; 
close; 
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end; 


{  Send  the  html  page  } 

send  C<mMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  C</HEAD><BODY  bgcolor=FFFFFF>'); 

send  ('<center><H2>Asilomar  Conference  System  Administration<H2x/centerxHR>’); 

send  ('<P>Here  is  the  paper  submitted  by '  +  dbHonorific  + ' '+  dbFName  +' '+  dbLName  +'. '); 

send(’<PxFORM  METHOD="POST"  ACTION="../cgi-win/ArtlPost.exe  ">’); 

send  ('<INPUT  TYPE="hidden"  Name="flag"  Value="l">’); 

send  ('<INPUT  TYPE="hidden"  Name="Paper_Number"  Value="'+  dPaperNumber 

send  ('<B>Title:  </BxINPUT  NAME="title"  Si2e="80"  TYPE="text'’  Value='"+  dbtitle 

send  ('<PxB>Invited;  </BxlNPUT  NAME="Invited"  Size="2"  TYPE="text"  Value='"+ 
dbinvited 

send  ('<B>Accepted;  </B><INPUT  NAME="Accepted"  Size=’'2"  TYPE="text"  Value='"+ 
dbaccepted 

send  (’<B>Session:  </BxINPUT  NAME="Session"  Size="5"  TYPE="text"  Value="’+ 
dbSession  + 

send  ('<B>Order  in  Session:  </BxINPUT  NAME- 'OrderInSession"  Size="3"  TYPE="text" 
Value=’"+  dbOrderInSession  + 

send  ('<B>Presentation  Time:  </BxINPUT  NAME="PresentationTime"  Size="8" 
TYPE="text"  Value="'+  dbPresentationTime 


{Pull  Keywords  from  KEYWORD  Table  } 
with  Queryl  do  begin 
close; 
sql.clear; 

sql.add('Select  *  FROM  Keyword '); 
open; 

(Move  records  from  query  result  to  Keyword  #1  Pull-down  menu} 
Keywords.open; 

Keywords.first; 

send('<PxB>Keyword  #  1 :  </BxSELECT  NAME="Keywordl  ">'); 
sendC<OPTION  SELECTED>  ’  +dbkeywordl+ "); 

while  not  Keywords.EOF  do  begin 
dbOption;=Keywords.fieldByName('Name')Asstring; 
sendC<OPTION>  ’  +dbOption+ "); 

Keywords.next; 
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end;  {for  all  records  in  the  query  result} 
sendC</SELECT>'); 

{Move  records  from  query  result  to  Keyword  #2  Pull-down  menu} 

Keywords.first; 

sendC<PxB>Keyword  #2:  </BxSELECT  NAME="Keyword2">'); 
if  dbkeyword2  =  'None'  then  send('<OPTION>  None') 
else  send('<OPTION  SELECTED> '  +dbkeyword2+ "); 

while  not  Keywords.EOF  do  begin 
dbOption:=Keywords.fieldByName(Name').Asstring; 
send('<OPTION> '  +dbOption+ "); 

Keywords.next; 

end;  {for  all  records  in  the  query  result} 
send('</SELECT>'); 


{Move  records  from  query  result  to  Keyword  #3  Pull-down  menu} 

Keywords.first; 

send('<PxB>Keyword  #3:  </BxSELECT  NAME="Keyword3">'); 
if  dbkeywordS  =  'None'  then  send('<OPTION>  None') 
else  send('<OPTION  SELECTED> '  +dbkeyword3+ "); 

while  not  Keywords.EOF  do  begin 
dbOption:=  Keywords.  fieldByNameCName').  Asstring; 
send('<OPTION> '  +dbOption+ "); 

Keywords.next; 

end;  {for  all  records  in  the  query  result} 
send('</SELECl>'); 


Keywords.close; 
end;  {query  1} 

send  ('<PxB>Abstract:  </BxpxTEXTAREA  NAME="abstract"  COLS=70  Rows=l  0>'); 
for  i  ;=  0  to  theabstract.coimt  - 1  do 
send(  theabstract.strings[i] ); 
send  ('</TEXTAREA>'); 

theabstractfree;  {release  the  memory  held  by  'theabstract'} 

sendhdr  (T,  'Other  Author  Information'); 
send  ('<B>Name  Position  of  the  contact  author:'); 
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send  (’<INPUT  NAME="contactOrder"  Size="2"  TYPE="text"  Value="'+  dbcontactOrder 
+"•>’); 

sendhr; 

send  ('<B>Name  Position:  </BxINPUT  NAME="order2"  Size="2"  TYPE="text"  Value="’+ 
dborder2 

send  (’<B>First  Name;  </BxlNPUT  NAME="fhame2"  Size="25"  TYPE="text"  Value=’"+ 
dbfhame2 

send  ('<B>Middle  Initial:  </BxINPUT  NAME="initial2"  Size="l"  TYPE=’’text"  Value=’"+ 
dbinitial2 

send  ('<BR><B>Last  Name;  </BxlNPUT  NAME="lname2"  Size="25"  TYPE="text" 
Value="'+  dblname2 

send  ('<BR><B>Institution:</BxlNPUT  NAME="institution2"  Size=’'60"  TYPE="text" 
Value="'+  dbinstitution2 


sendhr; 

send  ('<B>Name  Position;  </BxINPUT  NAME="order3"  Size="2"  TYPE="text’'  Value="’+ 
dborderS 

send  ('<B>First  Name:  </BxlNPUT  NAME="fhame3"  Size="25"  TYPE="text"  Value="'+ 
dbfhame3 

send  ('<B>Middle  Initial:  </BxINPUT  NAME="initial3"  Size="l"  TYPE="text"  Value=’"+ 
dbinitial3 

send  ('<BR><B>Last  Name:  </BxINPUT  NAME="lname3’’  Size="25"  TYPE=’’text" 
Value="'+  dblname3 

send  ('<br><B>Institution:</B><INPUT  NAME="institution3"  Size="60"  TYPE="text'’ 
Value="'+  dbinstitution3 

sendhr; 

send  ('<B>Name  Position;  </BxINPUT  NAME="order4"  Size="2"  TYPE="text"  Value="’+ 
dborder4 

send  ('<B>First  Name:  </BxlNPUT  NAME="fhame4"  Size="25"  TYPE="text"  Value="'+ 
dbfhame4 

send  ('<B>Middle  Initial:  </BxlNPUT  NAME="initial4"  Size="l"  TYPE="text"  Value="'+ 
dbinitial4 

send  ('<BRxB>Last  Name:  </BxINPUT  NAME="lname4"  Size="25"  TYPE="text" 
Value- "+  dblname4 

send  ('<BRxB>Institution;</B><INPUT  NAME="institution4"  Size=''60"  TYPE="text" 
Value="'+  dbinstitution4 

sendhr; 

send  ('<B>Name  Position;  </BxINPUT  NAME="order5”  Size="2"  TYPE="text"  Value=’"+ 
dborderS 

send  C<B>First  Name:  </B><INPUT  NAME="foame5'’  Size="25"  TYPE="text'’  Value=’"+ 
dbfhameS 

send  ('<B>Middle  Initial:  </BxINPUT  NAME="initial5"  Size="l"  TYPE="text"  Value=’"+ 
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dbinitialS 

send  ('<BRxB>Last  Name:  </BxlNPUT  NAME="lname5"  Size="25"  TYPE- ’text" 
Value="’+  dblnameS 

send  ('<BR><B>Institution:</BxINPUT  NAME="institution5"  Size="60"  TYPE- ’text" 
Value=’’’+  dbinstitutionS 

sendhr; 

send  (’<B>Name  Position:  </BxINPUT  NAME=’’order6’'  Size="2’’  TYPE- ’text"  Value="’+ 
dborderb 

send  (’<B>First  Name:  </BxINPUT  NAME=’'fhame6’’  Size=’’25’’  TYPE=’’text’’  Value=’’’+ 
dbfhameb  +’’’>’); 

send  (’<B>Middle  Initial:  </BxlNPUT  NAME=’’initial6’’  Size="l’’  TYPE=’’text’’  Value=’’’+ 
dbinitial6  +"’>’); 

send  (’<BRxB>Last  Name:  </BxlNPUT  NAME="lname6’’  Size='’25’’  TYPE=’’text'’ 
Value=’’’+  dblnameb  +’’’>’); 

send  (’<BRxB>Institution:</BxlNPUT  NAME=’’institution6’'  Size="60"  TYPE- ’text" 
Value=’’’+  dbinstitutionb 

send  (’<PxCENTERxINPUT  TYPE=’’submit’’  Value="Record  these  changes  to  Article 
Information">  <INPUT  TYPE=’’reset’’’); 

send  ('  VALUE=’’Reset  to  Original  Values’’x/CENTERx/FORM>’); 

sendhr; 

send(’<P><FORM  ACTION=’’../cgi-win/Adminpwd.exe’’  METHOD=’'POST’’>'); 
send(’<INPUT  TYPE="hidden’’  Name="flag’'  Value=’'r’>'); 
send('<PxCENTERxINPlJT  TYPE="submit’’  Value=’’Retum  to  the  System  Admin 
Options  page’’x/CENTERx/FORM>’); 
send  ('</BODYx/HTML>’); 
closeStdout; 

closeApp(  application );  { don't  leave  form  around } 
end;  {with  CGIEnvDatal} 
end;  {with  FormCreate} 

end. 
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unit  Art_post; 
interface 


Post  the  Article:  ArtlPost.exe 


uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgj,  DB,  DBTables; 

type 

TForml  =  class(TFonn) 

DataSourcel:  TDataSource; 

Tablel:  TTable; 

CGIEnvDatal:  TCGIEnvData; 

CGIDBl:  TCGIDB; 

TablelPaperJSfumber:  TIntegerField; 

TablelTitle:  TStringpield; 

Tablelinvited:  TStringField; 

Tablel  Accepted;  TStringField; 

T  able  1  ContactAuthorNumber;  TIntegerField; 

Tablel  Session;  TStringField; 

Table  lOrderInSession:  TStringField; 

Table  1  PresentationT ime:  TStringField; 

TablelKeywordl:  TStringField; 

TablelKeyword2:  TStrin^ield; 

Tablel  Keywords:  TStringField; 

TablelContactOrder:  TStringField; 

TablelFName2:  TStringField; 

TablelLName2:  TStringField; 

Tablellnitial2:  TStringField; 

TablelInstitution2;  TStrin^ield; 

TablelOrder2:  TStringField; 

TablelFNameS:  TStringField; 

TablelLNameS;  TStringField; 

TablellnitialS:  TStringField; 

Tablel  Institutions;  TStrin^ield; 

Tablel  Orders :  TStringField; 

TablelFName4:  TStringField; 

TablelLName4:  TStringField; 

Table llnitiaW:  TStringField; 

TablelInstitution4:  TStringField; 

TablelOrder4;  TStringField; 

TablelFNameS:  TStringField; 

TablelLNameS;  TStringField; 
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TablellnitialS:  TStringField; 
TablellnstitutionS:  TStringField; 
TablelOrderS:  TStringField; 
TablelFNameb:  TStringField; 

Table  ILNameb:  TStringField; 
Tablellnitial6:  TStringField; 
Tablellnstitutionb:  TStringField; 

Table  lOrderb:  TStringField; 

TablelAbstract:  TMemoField; 
procedure  FomiCreate(Sender;  TObject); 
private 

{  Private  declarations } 
public 

{ Public  declarations } 
end; 

ar 

Forml;  TForml; 
theabstract ;  TStringList; 
dANumber;  string; 
dANumberint:  integer; 
dPaper  Number:  string; 
dtitle:  string; 
dinvited:  string; 
daccepted:  string; 
dsession:  string; 

dOrderInSession,  dPresentationTime:  string; 

dkeywordl:  string; 
dkeyword2:  string; 
dkeywordS;  string; 
dabstract:  string; 
dcontactOrder:  string; 

dfhame2:  string; 
dlname2:  string; 
dinitial2:  string; 
dinstitution2:  string; 
dorder2:  string; 

dfhameS:  string; 
dlnameS;  string; 
dinitialS:  string; 
dinstitutionS:  string; 
dorderS:  string; 


dfTiame4:  string; 
dlname4:  string; 
dinitial4;  string; 
dinstitution4;  string; 
dorder4:  string; 

dfhameS;  string; 
dlnameS;  string; 
dinitialS:  string; 
dinstitutionS:  string; 
dorderS:  string; 

dfhame6:  string; 
dlnanie6:  string; 
dinitial6;  string; 
dinstitution6:  string; 
dorder6:  string; 

dbFName ;  string; 
dbLName :  string; 
dbHonorific :  string; 
dbEmail ;  string; 

addinfo;  string; 

dflag:  string;  {valid  program  call} 

implementation 
{$R  *.DFM} 

procedure  TForml.FormCreate(Sender:  TObject); 
begin 

with  CGIEnvDatal  do  begin 

{Initialize  HTML  page  } 
webSiteINIFilename:=paramstr(  1 ); 
application.onException;=cgiErrorHandIer; 
application-processMessages; 

createStdout; 

sendPrologue; 
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send  ('<HTML><HEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  ('</HEAD><BODY  bgcolor=FFFFFF>’); 

{Determine  whether  flag  is  valid} 

dflag;=  getsmallfield  ('flag'); 
if  (dflag  = '!')  then  begin  (flag  is  set) 

send('<center><H2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 

{  Get  data } 

dPaper_Number:=  getsmallfield  CPaperNumber’); 

dtitle:=  getsmallfield  (title'); 
dinvited;=  getsmallfield  ('invited'); 
daccepted:=  getsmallfield  ('accepted'); 
dsession:=  getsmallfield  ('session'); 
dOrderInSession:=  getsmallfield  ('OrderlnSession'); 
dPresentationTime;=  getsmallfield  ('PresentationTime'); 
dkeywordl”  getsmallfield  (Tceywordl'); 
dkeyword2:=  getsmallfield  ('keyword2'); 
dkeyword3:=  getsmallfield  ('keywords'); 

theabstract  :=  TStringList.create; 
theabstract.  clear; 

CGIEnvDatal.getTextArea(  'abstract',  theabstract); 

dcontactOrder:=  getsmallfield  ('contactOrder'); 

dorder2;=  getsmallfield  ('order2'); 
dfhame2:=  getsmallfield  ('fname2'); 
dlname2~  getsmallfield  ('lname2'); 
dinitial2;=  getsmallfield  ('initial2'); 
dinstitution2:=  getsmallfield  ('institution2'); 

dorderS”  getsmallfield  ('orderS'); 
dfhame3:=  getsmallfield  ('fiiameS'); 
dlname3:=  getsmallfield  ('InameS'); 
dinitial3:=  getsmallfield  (’initials’); 
dinstitution3:=  getsmallfield  (’institutions'); 
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dorder4:=  getsmallfield  ('order4'); 
dfhame4:=  getsmallfield  ('fhame4'); 
dlname4;=  getsmallfield  ('lname4'); 
dimtial4:=  getsmallfield  ('initiaW); 
dinstitution4;=  getsmallfield  ('institution4'); 

dorder5:=  getsmallfield  ('orderS'); 
dfhame5;=  getsmallfield  ('fhameS'); 
dlname5:=  getsmallfield  ('InameS'); 
dimtial5;=  getsmallfield  ('initials'); 
dinstitutionS—  getsmallfield  ('institutions'); 


dorder6;=  getsmallfield  ('order6'); 
dfname6:=  getsmallfield  ('fname6'); 
dlname6:=  getsmallfield  ('lname6'); 
dinitial6;=  getsmallfield  ('initial6'); 
dinstitution6;=  getsmallfield  ('institution6'); 

{  Place  Data  into  SUBMISSION  Table} 
with  Table  1  do  begin 

{ Move  to  proper  record} 

open; 

first; 

if  fieldbyName(Paper_Number').asstring  o  dPaperNumber  then 

repeat 

next; 

imtil  fieldbyName('Paper_Niunber').asstring  =  dPaper_Number; 


{Place  edited  submission  data  to  SUBMISSION  Table} 

edit; 

SetFields([nil,  dtitle,  dinvited,  daccepted,  nil,  dsession,  dOrderInSession, 
dPresentationTime,  dkeywordl,  dkeyword2, 

dkeywordS,  nil,  dcontactOrder,  dFName2,  dLName2,  dlnitial2,  dInstitution2,  dOrder2, 
dFNameS,  dLNameS, 

dInitiaB,  dInstitutionS,  dOrderS,  dFName4,  dLName4,  dlnitial4,  dInstitution4,  dOrder4, 
dFNameS,  dLNameS,  dInitialS,  dInstitutionS,  dOrderS,  dFName6,  dLName6,  dlnitial6, 
dInstitution6, 

dOrderb]); 

edit; 

CGIDB 1  .StringlistToMemo(theabstract,  fieldbyname(' Abstract')); 
theabstract.ffee; 
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post; 

close; 

end;  {withTablel} 


{ Send  the  Final  page  } 

sendhdr  ('2',  'Article  Successfully  Edited'); 

send  ('<P>The  article  titled  <B>'"  +dtitle+  '"</B>  has  been  updated  in  the  Database.<P>'); 

send('<PxFORM  ACTION="../cgi-win/ArtlEdit.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
send('<PxCENTERxlNPUT  TYPE="submit"  Value="Edit  another 
Article"x/CENTER><yFORMxP>'); 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Naine="flag"  Value="  1  ">'); 
send('<P><CENTERxIlSIPUT  TYPE="submit"  Value-'Retum  to  the  System  Admin 
Options  page"></CENTERx/FORM>'); 
send  ('</BODYx/HTML>'); 

CGIEnvDatal  .closeStdout; 
closeApp(  application ); 

end  (flag  is  set} 

else  begin  {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 
sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !<;/strongx/H2x/center>'); 
send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 
send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 
again.  </A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 
send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 
send  ('prosecution  for  your  actions.<BR>'); 


send  ('<PxhrxpxlMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">'); 
send  (Return  to  the  <A  HREF="http://131.120.20.70/Index.html">Asilomar'); 
send  ('Conference  On-line  Submission  Page</A>'); 
send  ('</BODYx/HTML>'); 
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closeStdout; 
closeApp(  application  ); 

end;  {flag  **incorrect**} 

end;  {with  CGIEnvDatal} 

end;  {FormCreate} 


end.  {Application} 


Choose  Session;  Session.exe 


unit  Session; 

interface 

uses 

SysUtils,  WinT5T)es,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DBTables,  DB; 

type 

TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

Queryl:  TQuery; 

Sessions:  liable; 

CGIEnvDatal:  TCGIEnvData; 

CGIDBl;  TCGIDB; 

SessionsNumber:  TIntegerField; 

SessionsNeumonic:  TStringField; 

Query  1  Number;  TIntegerField; 

QueiylNeumonic;  TStringField; 
procedure  FormCreate(Sender:  TObject); 
procedure  CGIDB  lSendingHotField(currentRecord:  TDataset; 
var  s:  OpenString); 
private 

{  Private  declarations } 
public 

{ Public  declarations } 
end; 

var 

Forml:  TForml; 
dflag:  string; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
begin 

with  CGIEnvDatal  do  begin 

{Standard  Header} 

webSiteINIFilename:=paramstr(  1 ); 
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application.onException:=cgiErrorHandler; 
application.  processMessages; 

createStdout; 

sendPrologue; 

send  ('<HTMLxHEAD>’); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  (’</HEADxBODY  bgcolor=FFFFFF>'); 

{Determine  whether  flag  is  valid} 

dflag:=  getsmallfield  ('flag'); 

if  (dflag  =  '1')  then  begin  {flag  is  set) 

send('<center><H2>Asilomar  Conference  System  Administration</H2></center>'); 
sendhr; 


{send  instruction;} 

send('<center>These  are  the  current  Session  Neumonics.<br>'); 

send('To  edit  a  single  Session  Neumonic,  simply  click  on  the  Neumonic  that  you  would  like 
to  change.<BR>'); 

sendC  Other  options  are  available  at  the  bottom  of  the  page.<BR>'); 


{Retrieve  current  Session  Information} 
with  Query  1  do  begin 

close; 

sql.clear; 

sql.add('Select*FROM  Session '); 
open; 

if  recordcount  >  0  then  begin 
CGIDBl  .DrawTable; 
send('</center>'); 
end  {if  recordcount  >0} 

else 

sendhdr  ('2','There  are  no  Sessions  in  the  Database!'); 
end;  {withQueryl} 
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{Button  to  Add  keywords} 

send(’<PxFORM  ACTION="../cgi-win/SessAdd.exe"  METHOD="POST">’); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
send('<PxCENTERxINPUT  TYPE="submit"  Value="Add  a  New 
Session"x/CENTERx/FORM>’); 

(Button  to  Delete  keywords} 

send('<PxFORM  ACTION="../cgi-win/SessDel.exe"  METHOI>="POST">'); 
sendC<INPUT  TYPE=’'hidden"  Name="flag"  Value="  1 
sendC<PxCENTERxlNPUT  TYPE="submit"  Value=”Delete 
Session(s)"x/CENTERx/FORM>’); 


{Standard  Footer} 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
sendC<INPUT  TYPE='’hidden"  Name=”flag"  Value=’’l">'); 
send('<PxCENTERxlNPlJT  TYPE="submit"  Value="Retum  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
end  {flag  is  set} 

else  begin  {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 
sendhr; 

send  ('<centerxH2>Yoiir  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again.</A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 
send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 
send  ('prosecution  for  your  actions. <BR>'); 


send  ('<PxhrxPxlMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">'); 

send  (Return  to  the  <A  HREF="http://131.120.20.70/Tndex.html">Asilomar'); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 


end;  {flag  **incorrect**} 

send  ('</BODYx/HTML>'); 
closeStdout; 
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closeApp(  application ); 
end;  {with  CGIEnvDatal} 


end;  {FormCreate} 

procedure  TFonnl.CGIDBlSendingHotField(currentRecord:  TDataset; 
var  s:  OpenString); 
begin 

{Hotlink  for  single  session  edit} 

s:-<A  HREF="../cgi-win/SessEdit.exe?'+  cuirentrecord.fieldbyName('Number').AsString  + 
+  currentrecord.FieldbyName('Neumonic').AsString  +  '</A>'; 
end; 


end. 


Edit  a  Session:  SessEditexe 


unit  Sesjedit; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgidb,  Cgi; 

type 

TForml  =  class(TForm) 

CGEEnvDatal :  TCGIEnvData; 

CGIDBl;  TCGIDB; 

DataSourcel:  TDataSource; 

Sessions:  TTable; 

SessionsNumber:  TIntegerField; 

SessionsNeumonic:  TStringField; 
procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations  } 
public 

{ Public  declarations  } 
end; 

var 

Forml:  TForml; 
implementation 
{$R  *.DFM} 

procedure  TFonnl.FormCreate(  Sender:  TObject); 
var 

SessionNumber,  Session:  string; 


begin 

with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(l); 

application.onException:=cgiErrorHandler; 

application.processMessages; 
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createStdout; 

sendPrologue; 

{Find  Session  to  edit} 

{  Get  field  from  search  page } 

SessionNumber;=  cgiQueryString^; 

with  Sessions  do  begin 

{Prepare  the  table} 

open; 

first; 

{find  the  correct  Session} 

while  SessionNumber  o  fieldbyname('Number').asstring  do 
next; 

Session”  fieldbyname('Nenmonic').asstring; 
end;  {with  Sessions} 

{Send  Session  edit  FORM  to  HTML  page} 

{Standard  Header} 

send  ('<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  ('</HEAD><BODY  bgcoIor=FFFFFF>'); 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 

send('Here  is  the  Session  you  wanted  to  edit.  Make  changes  and  "Submit"  them.<BR>'); 

send('<PxFORM  ACTION="../cgi-win/Sessedt2.exe"  METHOD="POST">’); 
sendC<INPUT  TYPE="hidden"  Name="flag"  Value="l">’); 
send(’<INPUT  TYPE="text"  NAME="Session"  SIZE="50"  VALUE='"  +Session+ 
send('<DSIPUT  TYPE="hidden"  NAME="Sessionnumber"  VALUE="'  +SessionNumber+ 
send(’<PxCENTERxINPUT  TYPE="submit"  Value="Submit  Change  to  Session">’); 
send('<INPUT  TYPE="reset"  VALUE="Reset  to  Original  Session"></CE]SlTERx/FORM>'); 

send('<P><FORM  ACTION="../cgi-win/Sessions.exe"  METHOD="POST">'); 
send('<IlSIPUT  TYPE="hidden"  Name="flag"  Value="l">’); 
send(’<PxCENTERxlNPUT  TYPE="submit"  Value="CANCEL  -  Do  NOT 
change"x/CENTER></FORM>'); 
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{Standard  Footer} 

sendhr; 

send(’<PxFORM  ACTION="../cgi-win/Admmpwd.exe"  METHOI>='TOST">’); 
sendC<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
send('<PxCENTERxlNPUT  TYPE="submit"  Value="Retum  to  the  System  Admin 
Options  page"x/CENTERx/FORM>’); 
send  (’</BODYx/HTML>'); 
closeStdout; 
closeApp(  application  ); 

end;  {with  cgiEnvDatal  do} 

end;  {FormCreate} 

end. 
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unit  Ses_edt2; 
interface 


Edit  Confirmation;  SesEdit2.exe 


uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 

TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

Sessions:  TTable; 

CGIEnvDatal;  TCGIEnvData; 

CGIDBl:  TCGIDB; 

SessionsNumber:  TIntegerField; 

SessionsNeumonic;  TStringField; 
procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations  } 
public 

{ Public  declarations  } 
end; 

var 

Forml:  TForml; 
implementation 
{$R  *.DFM} 

procedure  TForml.FormCreate(Sender:  TObject); 
var 

dsession:  string; 
dsessioimumber:  string; 

dflag;  string;  {valid  program  call} 

begin 

with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 
application.onException:=cgiErrorHandler; 
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application.processMessages; 

createStdout; 

sendPrologue; 

(Standard  Header} 

send  C<HrMlxHEAD>’); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  ('</HEADxBODY  bgcolor=FFFFFF>’); 

(Determine  whether  flag  is  valid} 

dflag:=  getsmalifield  ('flag'); 
if  (dflag  =  '1')  then  begm  (flag  is  set} 

send(’<centerxH2>AsiIomar  Conference  System  Adminishation</H2x/center>’); 
sendhr; 


(  Get  field  from  search  page  } 
dsession:=  getsmalifield  ('session'); 
dsessionnumber=  getsmalifield  ('sessionnumber*); 


(Put  changed  session  into  SESSION  Table} 
with  Sessions  do  begin 

(  Move  to  proper  record} 

open; 

first; 

w4iile  fieldbyName('Number’).asstring  o  dsessionnumber  do 
next; 

(Update  record  } 
edit; 

SetFields([nil,  dsessionj); 

post; 

close; 

end;  (with  Sessions} 


(Send  the  Confirmation  page  } 

send  ('<P>The  Session  has  been  changed  to  <B>  ’  +  dsession  +  '</B>.'); 
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send  (’</CENTiERxBR>’); 


send(’<PxFORM  ACTION="../cgi-win/Sessions.exe''  ME'raOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag”  Value="l”>’); 
send('<PxCENTERxINPUT  TYPE="submif  Value="Edit  more 
Sessions"x/CENTERx/FORM>'); 


{Standard  Footer} 

sendhr; 

send(’<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD=’TOST”>’); 
send(’<INPUT  TYPE="hidden"  Name="flag"  Value="l">’); 
send('<PxCENTERxINPUT  TYPE- 'submit”  VaIue="Retum  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
end  {flag  is  set} 

else  begin  {flag  **incorrect**} 

send  ('<center><H2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 
sendhr; 

send  ('<center><H2>Your  password  was  <strong>not  accepted!  !</strongx/H2></cenfer>'); 
send  {'<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 
send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm''>tiy  to  login 
again.  </A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 
send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 
send  ('prosecution  for  your  actions.<BR>'); 


send  (’<PxhrxPx]MG  SRC="../prototype/asil2b0.gif  "  align=left  alt=''Asilomar  facility”>'); 
send  CRetum  to  the  <A  HREF=''http;//131.120.20.70/Index.html">Asilomar’); 
s^d  ('Conference  On-line  Submission  Page</A>’); 

end;  {flag  **mcorrect**} 

send  ('<7BOD  Yx7HTMl>'); 
closeStdout; 
closeApp(  application ); 
end;  {with  CGIEnvDatal} 
end;  {FormCrcate} 

end. 
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Add  a  Session:  SessAdd.exe 


unit  Sess_add; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgi<fl),  Cgi; 

type 

TForml  =  class(TForm) 

CGIEnvEtotal:  TCGBEnvEteta; 

CGIDBl:  TCGIDB; 

DataSourcel:  TDataSource; 
procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declaraticms } 
public 

{  Public  declarations } 
end; 

var 

Forml:  TForml; 
implementation 
{$R  ♦.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
begin 

with  CGIEnvDatal  do  begin 

webSiteINIFiIename:=paramstr(  1 ); 
application.  onException:==cgiErrorHandler ; 
applicatioaprocessMessages; 

createStdout; 

sendProIogue; 


{Send  Keyword  ADD  Form  to  HTML  page} 

(Standard  Header} 

send  (’<HTMLxHEAD>’); 
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SendTitle('Asilomar  Signals,  Systems,  and  Computers’); 
send  (’<HEADxBODY  bgcolor=FFFFFF>'); 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 

sendCFill  in  the  Session  Neumonics  you  would  like  to  add.<BR>'); 
sendCYou  may  fill  in  all  or  none  of  these  fields.<BR>'); 

send('<PxFORM  ACTION="../cgi-win/SessAdd2.exe"  METHOD=""POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">’); 
send(’<PxB>New  Session:  </BxINPUT  TYPE='’text"  NAME='’Sessionl"  >’); 
send(’<PxB>New  Session:  <yBxINPUT  TYPE="text"  NAME="Session2"  >'); 
send('<PxB>New  Session:  </BxiNPUT  TYPE=''text"  NAME="Session3"  >'); 
send('<PxB>New  Session:  </BxINPUT  TYPE-'text"  NAME='’Session4"  >'); 
sendC<PxCENTERxINPUT  TYPE="submit"  Value="ADD  these 
Sessions"x/CENTERx/FORM>’); 

sendC<PxFORM  ACTION="../cgi-win/Sessions.exe"  ME’raOD="POST">’); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value=’’l">'); 

send('<PxCENTERxlNPUT  TYPE="submit"  Value="CANCEL  -  Do  NOT  Add  any 
Sessions"x/CENTERx/FORM>'); 


{Standard  Footer) 

sendhr; 

send(’<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden'’  Name="flag"  Value=”l">'); 

send('<PxCENTERxlNPUT  TYPE="submit''  Value="Retum  to  the  System  Admin 
Options  p^e"></CENTERx/FORM>'); 
send  (’</BODYx/HTML>’); 
closeStdout; 
closeApp(  application ); 

end;  {with  cgiEnvDatal  do) 

end;  {FormCreate) 

end. 
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unit  Ses_a(id2; 
interface 


Addition  Confirmation;  SessAdd2.exe 


uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgjdb,  Cgi; 

type 

TForml  =  class(TForm) 

CGIEnvDatal :  TCGIEnvData; 

CGIDBl:  TCGIDB; 

DataSourcel:  TDataSource; 

Sessions:  TTable; 

SessionsNumber  TIntegerField; 

SessionsNeumonic:  TStringfield; 
procedure  FormCreate(Sender;  TObject); 

IMivate 

{ Private  declarations } 
public 

{ Public  declarations  } 
end; 

var 

Forml:  TForml; 
implementation 
{$R*.DFM} 


procedure  TForml. FormCreate(Sender;  TObject); 


var 

dsessionl:  string; 
dsession2;  string; 
dsessionS:  string; 
dsession4:  string; 

dbsession:  string; 

dflag:  string; 


{valid  program  call} 
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sessionPos:  integer; 


begin 

with  CGIEnvDatal  do  begin 

webSiteINIFilename:===paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

appiication.processMessages; 

createStdout; 

sendProIogue; 

{Standard  Header} 
send  ('<HTMLxHEAD>'); 

SendTitle('AsiIomar  Signals,  Systems,  and  Computers'); 
send  C^HEADxBODY  bgcolor“FFFFFF>'); 

{Determine  whether  flag  is  valid} 

dflag:=  getsmallfield  ('flag'); 
if  (dflag  =  '1')  then  begin  {flag  is  set} 

send('<centerxH2>Asilomar  Conference  System  Administration</H2></center>’); 
sendhr; 


{  Get  field  from  search  page } 
dsessionl:=  getsmallfield  ('session  1'); 
dsession2:=  getsmallfield  ('session2'); 
dsession3:=  getsmallfield  ('session3'); 
dsession4:=  getsmallfield  ('session4'); 


{ADD  Sessions  into  Sessions  Table} 

with  Sessions  do  begin 

{Update  record  } 
open; 

if  dsessionl  o "  then  begin 
first; 

sessionPos  :=  CompareStr(dsessionl,  Fieldbyname  ('neumonic').asstring); 
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while  (not  EOF)  and  (sessionPos  <  0)  do  begin 

sessionPos  :=  ConipareStr(dsessionl,  Fiel(ft)yname  ('neumonic').asstring); 
end; 

if  sessionPos  >  0  then  begin 
insert; 

InsertRecord([nil,  dsessionl]); 
end 

else  send  ('The  session  neumonic '  +  dsessionl  + '  already  exists*); 
end;  (if  sessimi  o  ”} 
if  dsession2  o "  then  begin 
first; 

sessionPos  :=  CompareStr(dsession2,  Fieldbyname  ('neumonic').asstring); 
while  (not  EOF)  aiid  (sessionPos  <  0)  do  begin 

sessionPos  :=  CompareStr(dsession2,  Fieldbyname  ('neumonic').  asstring); 
end; 

if  sessionPos  >  0  then  begin 
insert; 

InsertRecord([nil,  dsession2]); 
end 

else  send  (The  session  neumonic '  +  dsession2  + '  already  exists'); 
end;  {if  session  o  "} 
close; 

end;  {with  Sessions} 


{Srad  the  Thankyou  page  } 

sendhdr  ('3',  The  following  Sessions  have  been  ADDED.<BR>'); 

send  ('<PxB>'  +dsessionH-  ’<BR>’); 

send  ("  +dsession2+  '<BR>'); 

send  ("  +dsession3+  '<BR>’); 

send  ("  +dsession4+  '</B>'); 
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send(’</CENTER>’); 


sendC<PxFORM  ACTION="../cgi-win/Sessions.ex€"  METHOI>='TOST">’); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
sendC<PxCENTERxINPUT  TYPE="submit"  Value="Edit  more 
Sessions*'x/CENTERx/FORM>’); 


{Standard  Footer} 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe''  METHOD=’'POST">’); 
sendC<INPUT  TYPE="hidden"  Name="flag"  Value="r’>'); 
sendC<PxCENTERxINPUT  TYPE- ’submit"  Value="Retum  to  the  System  Admin 
Options  page"></CENTER><iEORM>'); 
end  {flag  is  set} 

else  begin  {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  Computers<H2x/center>'); 
sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  [</strongx/H2x/center>'); 
send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.’); 
send  ('<P>If  you  made  an  error,  then  please  <A  HREF=’'../prototype/admin20.htm">try  to  login 
again.  </A>’); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 
send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal  ’); 
send  ('prosecution  for  your  actions.<BR>'); 


send  (’<PxhrxPxIMG  SRC="../prototype/asil2b0.gif  "  align=left  alt="Asilomar  facility">'); 
send  CRetum  to  the  <A  HREF="http://13 1 . 120.20.70/Index.htmr'>Asilomar'); 
send  ('Conference  On-line  Submission  Page</A>’); 

end;  {flag  **incorrect**} 

send  ('</BODYxm’ML>'); 
closeStdout; 
closeApp(  application ); 
end;  {with  CGBEnvDatal} 
end;  {FormCreate} 
end. 
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Delete  Session(s):  SessDel.exe 


iinit  Sess_del; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 

TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

Sessions:  TTable; 

Query  1:  TQueiy; 

CGIEnvDatal:  TCGDEnvData; 

CGIDBl:  TCGIDB; 

SessionsNumber:  TIntegerField; 

SessionsNeuttionic:  TStringField; 

QuerylNumber:  TIntegerField; 

QuerylNeumonic:  TStrin^ield; 
procedure  FormCreate(Sender:  TObject); 
procedure  CGIDB  lSendingHotField(currentRecord:  TDataset; 
var  s;  OpenStting); 
private 

{ Private  declarations } 
public 

{ Public  declarations } 
end; 

var 

Forml:  TForml; 
implementation 
{$R*.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
var 

dflag:  string; 
begin 

with  CGIEnvDatal  do  begin 
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{Standard  Header} 

webSiteINIFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application-processMessages; 

createStdout; 

sendPrologue; 

send  C<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  (’</HEADxBODY  bgcolor=FFFFFF>’); 

{  Get  fields  from  search  page } 

dflag:=  getsmallfield  ('flag'); 

if  dflag  =  T  then  begin 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 

send('<center>These  are  the  current  Sessions.<br>'); 

send('To  DELETE  a  Session,  simply  select  the  Number  next  to  the  Session  that  you  would 
liketoDELETE.<BR>’); 

{Retrieve  current  Keywords} 
with  Queryl  do  begin 

close; 

sql.clear; 

sql.add('Select*FROM  Session '); 
sql.add('Order  By  Number'); 
open; 

{Check  if  any  records  were  returned} 
if  recordcount  >  0  then  begin 

{There  are  records  returned} 

Sessions.Open; 

CGIDB 1  .EhawTable; 
sendC</center>'); 

Sessions.  Close; 

end  {if  recordcoimt  >  0} 

else 

{No  records  returned} 

sendhdr  ('2','There  are  no  Sessions  in  the  Database  to  Delete!’); 
end;  {with  Queryl} 
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{Delete  all  fields  option} 

sendC<PxFORM  ACTION^"../cgi-win/SessDel2.exe"  METHOD=’’POST">’); 
send('<ItSIPUT  TYPE- 'hidden"  Name="flag"  Value="  !">'); 
send('<INPUT  TYPE="hidden"  Name="DeleteAH"  Value=^”Yes">'); 
send(’<PxCENTERxINPUT  TYPE="submit"  Value="****  Delete  ALL  the  Sessions 
****"x/CENTER></FORM>'); 


{HTML  Footer) 

sendhr; 

send(’<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
send(’<INPUT  TYPE-"hidden"  Name="flag"  Value="  !">’); 
send('<PxCENTERxINPUT  TYPE="submit"  Value="Retiim  to  the  System  Admin 
Options  page''><yCENTER><yFORM>'); 

end  {flag  is  set} 

else  begin  {flag  **incorrect**} 

send  C<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2></center>’); 
sendhr; 

send  ('<centerxH2>Yoiu:  password  was  <strong>not  accepted!  !</strongx;/H2><center>'); 
send  ('<P>Please  ensure  that  you  are  authorized  to  access  diis  information.'); 
send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/ai(hnin20.htm">try  to  login 
again.  </A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 
send  ('maintained  fliat  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 
send  ('prosecution  for  your  actions.<BR>'); 

send  ('<PxhrxPxlMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">'); 
send  (Tletum  to  the  <A  HREF="http://131.120.20.70/Index.htmr>Asilomar’); 
send  ('Conference  On-line  Submission  Page</A>'); 

end;  {flag  **mcorrect**} 

send  ('</BODYx/H1ML>'); 
closeStdout; 
closeApp(  application ); 
end;  {withCGIEnvDatal} 


end;  {FormCreate} 
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procedure  TForml.CGIDBlSendingHotField{currentRecord:  TDataset; 
var  s:  OpenString); 
begin 

{Hotlink  for  single  keyword  edit} 

s:-<A  HREF="../cgi-win/SessE)el2.exe?'+  currenfrecord.fieldbyName('Number').AsString  + 
+  currentrecord.FieldbyName('Number').AsString  +  '</A>'; 
end; 
end. 
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unit  Ses_deE; 
interface 


Verification  of  Delete:  Ses8Del2.exe 


uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgidb,  Cgj; 

type 

TForml  =  class(TFonn) 

CGEnvDatal:  TCGffinvData; 

CGIDBI:  TCGIDB; 

DataSourcel:  TDataSource; 

Sessions:  TTable; 

SessionsNumber:  TIntegerFieid; 

SessionsNeumonic:  TStringField; 
procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations } 
public 

{ Public  declarations  } 
end; 

var 

Forml:  TForml; 
implementation 
{$R  *.DFM} 

procedure  TForml. FormCreate(Sender;  TObject); 
var 

SessionNumber,  SessionName,  dDeleteAll:  string; 
begin 

widi  CGEnvDatal  do  begin 

webSiteINEilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 
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createStdout; 

sendPrologue; 

(Standard  Header} 

send  ('<HTML><HEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  ('</KEADxBODY  bgcolor=FFFFFF>'); 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr. 


(Find  Session  to  Delete} 

{  Get  field  from  search  page } 
try 

dDeleteAll”  getsmallfield  (DeleteAll'); 
finally 

(Check  to  see  if  'Delete  all  fields’  is  true} 

SessionNumber:=  cgiQueryString^; 
end; 

if  getsmallfield  CDeleteAU')  o  cginotfound  then  begin 

(Check  to  see  if  'Delete  all  fields'  is  true} 

dDeleteAll:=  getsmallfield  (DeleteAU'); 

if  dDeleteAil  =  'Yes'  then  begin 
with  Sessions  do  begin 

sendhdr  ('2',  'Are  you  sure  you  want  to  Delete  ALL  of  the  Sessions  in  the  Database!'); 

send('<PxFORM  ACTION="../cgi-win/Sessions.exe''  METHOI>="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
send('<PxCENTER><INPUT  TYPE="submit'’  Value="CANCEL  -  Do  NOT 
Delete"x/CENTERx;/FORM>'); 

send('<PxFORM  ACTION="../cgi-win/SessDeI3.exe"  METHOD-"POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
send('<INPUT  TYPE="hidden"  NAME- 'sessionnumber"  VALUE="delete">'); 
send('<INPUT  TYPE="hidden"  NAME="session"  VALUE="delete">'); 
send('<PxCENTERxINPUT  TYPE="submit"  Value="***  YES  -  DELETE  ALL 
Sessions  in  the  Database!  ***"xyCENTERxyFORM>'); 
end;  (with  Sessions} 
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end;  {ifdDeleteAll} 


end  {if  c^notfoiind} 

else  begin  {Delete  one  record} 

with  Sessions  do  begin 

{Prepare  the  table} 

open; 

first; 

{find  the  correct  keyword} 

while  SessioriNumber  o  fieldbyname('Niimber').asstring  do 
next; 

{Get  the  Session  Name} 

SessionName:=  fieldbyname('Neiimonic’).asstring; 
end;  {with  Sessions} 

{Send  Session  edit  FORM  to  HTML  page} 

send(’Are  you  sure  you  want  to  DELETE  the  Session  <B>'  +SessionName+  '.</B><BR>'); 

sendC<PxFORM  ACTION="../cgi-win/SessDel3.exe"  METHOD=TOST">*); 
send('<INPUT  TYPE="hidden"  Naffie="flag"  Value=”r>’); 

sendC<INPUT  TYPE="hidden'’  NAME="sessionnumber'’  VALUE=’"  +SessionNumberf 
sendC<INPUT  TYPE="hidden"  NAME="session’'  VALUE='"  +SessionName^- 
send(’<PxCENTERxINPUT  TYPE-"submif  Value=”  Yes.  DELETE  this 
Session"x/CENTERx/FORM>'); 

send('<PxFORM  ACTION="../cgi-win/Sessions.exe"  METHOD-"POST">’); 
send('<INPUT  TYPE="hidden"  Name="£lag"  Value="r>’); 
send('<P><CENTERxINPUT  TYPE="submit"  Value="CANCEL  -  Do  NOT 
Delete"x/CENTERx/FORM>'); 
end;  {Delete  one  record} 

{Standard  Footer} 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHC«>’TOST">'); 
send(’<INPUT  TYPE-"hidden'’  Name="£lag'’  Value='T">’); 
s«id('<PxCENTERxINPUT  TYPE="submit”  Value="Retum  to  the  System  Admin 
Options  page"x/CENTER></FORM>'); 
send  C<®ODYx/HTML>'); 
closeStdout; 
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closeApp(  application  ); 
end;  {with  cgiEnvDatal  do} 
end;  (FormCreate) 
end 
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Deletion  Confirmation:  Sess]>el3.exe 


unit  Ses_del3; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 

TForml  =  class(TFonn) 

DataSourcel:  TDataSource; 

Sessions:  TTable; 

CGEnvDatal:  TCGffinvData; 

CGIDBl:  TCGIDB; 

SessionsNumber:  TIntegerField; 

SessionsNeumonic:  TStrin^ield; 
procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations } 
public 

{ Public  declarations  } 
end; 

var 

Forml:  TForml; 
implementation 
{$R*.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
var 

dSessionNumber,  dSession:  string; 

dflag:  string;  {valid  program  call} 


begin 

with  CGEnvDatal  do  begin 

webSiteINEilename:=paramstr(  1 ); 
application.oiException:=cgiErrorHandier; 
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application.processMessages; 


createStdout; 

sendPrologue; 

{Standard  Header} 
send  ('<HTMLxHEAD>’); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  (’</HEADxBODY  bgcolor=FFFFFF>'); 


{Determine  whether  flag  is  valid} 
dflag:-  getsmallfield  ('flag'); 
if(dflag  =  'r)  then  begin  {flag  is  set} 

send('<center><H2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 


{  Get  field  from  search  page  } 
dSession:=  getsmallfield  ('Session'); 
dSessionnumber:=  getsmallfield  ('Sessionnumbef ); 


if  dSession  =  'delete'  then  begin 

{Delete  ALL  the  Sessions} 

with  Sessions  do  begin 

open; 

first; 

while  not  EOF  do  begin 
delete; 

end;  {while  not  EOF} 
end;  {with  Sessions} 

sendhdr  ('2',  'ALL  Sessions  were  deleted!'); 
end  {if  Sdession  =  delete} 


else  begin  {Delete  one  Session} 
{Delete  Session  from  SESSION  Table} 
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with  Sessions  do  begin 


{ Move  to  proper  record} 

open; 

fost; 

while  fieldbyName(TSrumber').asstring  o  dSessionnumber  do 
next; 

{Delete  record  } 

edit; 

delete; 

close; 

end;  {with  Sessions} 


{Send  the  Thankyon  page  for  delete  one  record  } 

send  ('<P>The  Session  <B> '  +  dSession  +  '</B>  has  been  DELETED.<yCENTERxBR>'); 

send('<PxFORM  ACTION=''../cgi-win/SessDeLexe"  METHaD="POST">'); 
send(’<INPUT  TYPE="hidden"  Name='’flag"  Value="l">'); 
send(’<PxCENTERxlNPUT  TYPE="subffiit"  Value="DELETE  more 
Sessions"></CENTER></FORM>’); 


end;  {else  Delete  one  Session} 

sendC<PxFORM  ACTION="../cgi-win/Sessions.exe’’  METHOI>="POST">’); 
send('<INPUT  TYPE="hidden"  Name="flag"  Vaiue="r>*); 
send('<PxCENTERxlNPUT  TYPE=''submit"  Value="]^t  more 
Sessions'’x/CENTERx/FORM>'); 


{Standard  Footer} 
sendhr; 

send(’<PxFORM  ACTION-"../cgi-win/Adminpwd.exe'’  METHOI>="POST">’); 
sendC<INPUT  TYPE=”hidden"  Name="flag'’  Value="l">'); 
send('<PxCENTERxlNPUT  TYPE="submit"  VaIue="Retum  to  the  System  Admin 
Options  page"><yCENTERx/FORM>'); 
end  {flag  is  set} 

else  begin  {flag  **incorrect**} 

send  ('<c«iterxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>’); 
sendhr; 
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send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>’); 
send  ('<P>Please  ensure  that  you  are  axithorized  to  access  this  information.'); 
send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 
again.  </A>'); 

send  (’<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is’); 
send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 
send  Cprosecution  for  your  actions.<BR>'); 


send  (’<PxhrxPxlMG  SRC=’’../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">’); 
send  ('Return  to  the  <AHREF="htq)://131.120.20.70/Index.html">Asilomar'); 
send  ('Conference  On-line  Submission  Page</A>'); 

end;  {flag  **iiicorrect**} 

send  ('</BODYx/HTMI>’); 
closeStdout; 
closeApp(  application ); 
end;  {with  CGIEnvDatal} 
end;  {FormCreate} 
end.  {Application) 
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unit  Key_word; 
interface 


Clioose  a  Keyword:  Keywordls.exe 


uses 

SysUtils,  WinTypes,  WinProcs,  Nfessages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgidb,  Cgi; 

type 

TFonnl  =  class(TFonn) 

CGIEnvDatal;  TCGEEnvData; 

CGIDBl:  TCGIDB; 

DataSourcel:  TDataSource; 

Query  1:  TQuery; 

Tablel:  TTable; 

QuerylName:  TStringField; 

Table  INumber:  TIntegerField; 

TablelName:  TStringField; 

Query  INumber  TIntegerField; 
procedure  FormCreate(Sender;  TObject); 
procedure  CGIDB  10nSendin^otField(currentRecord:  TDataset; 
var  s:  OpenString); 
private 

{  Private  declarations  } 
public 

{ Public  declarations  } 
end; 

var 

Forml:  TForml; 
dflag:  string; 

implementation 

{$R*.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
begin 

with  CGIEnvDatal  do  begin 

{Standard  Header) 

webSiteINIFilename:=paramslr(l ); 
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application.onException:=cgiErrorHandler; 

application-processMessages; 

createStdout; 

sendPrologue; 

send  ('<HTML><HEAD>'); 

SendTitIe('Asilomar  Signals,  Systems,  and  Computers'); 
send  (’</HEADxBODY  bgcolor=FFFFFF>’); 


{Determine  whether  flag  is  valid} 

dflag”  getsmallfield  Cflag*); 
if  (dflag  =  1')  then  begin  {flag  is  set) 

send('<centerxH2>AsiIomar  Conference  System  Administration</EI2x;/center>'); 
sendhr; 

{Send  intmctions} 

send('<center>These  are  the  current  Keywords.  <br>'); 

send('To  edit  a  single  Keyword,  simply  click  on  the  Keyword  that  you  would  like  to 
change.  <BR>'); 

sendC  Otiier  options  are  available  at  the  bottom  of  the  page.<BR>'); 

{Retrieve  current  Keywords} 
with  Query  1  do  begin 

close; 

sql.clear; 

sql.add(’Select*FROM  Keyword '); 
sql.addfOrder  By  Number'); 
open; 

if  recordcormt  >  0  then  begin 
Tablel.Open; 

CGIDB 1  .DrawTable; 
send('</center>'); 

Table  1. Close; 

end  {if  recordcount  >  0} 

else 

sendhdr  ('2',There  are  no  Keywords  in  the  Database!'); 
end;  {with  Queryl} 
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{Button  to  Add  keywords} 

send(’<PxFORM  ACnON="../cgi-win/KeyAdd.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden”  Name="flag"  Value=’'l">’); 
send('<PxCENTERxlNPUT  TYPE-'submit"  Value="Add  a  New 
Keyword"x/CENTER></FORM>'); 

{Button  to  Delete  keywords} 

sendC<PxFORM  ACTION-"../cgi-win/KeyDel.exe"  ME'raOD="POST">’); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="r’>'); 
sendC<PxCENmRxlNPUT  TYPE="submit"  Value="Delete 
Keyword(s)’'></CENTERXFORM>'); 

{HTML  Footer} 
sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value=’T">’); 
send('<PxCENTERxlNPUT  TYPE="submit"  Value="Retum  to  the  System  Admin 
Options  page”x/CENTERx/FORM>'); 
end  {flag  is  set} 

else  begin  {flag  **incorrect**} 

send  ('<center><H2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 
sendhr; 

send  (’<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2></center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF- '../prototype/admin20.htin">try  to  login 

again.</A>'); 

send  (’<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is’); 
send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 
send  ('prosecution  for  your  actions.<BR>'); 


send  ('<Pxhr><P><IMG  SRC-'../prototype/asil2b0.gif  "  align=left  alt="Asilomar  facility  ">'); 

send  ('Return  to  the  <A  HREF="htQ)://131.120.20.70/Index.html">Asilomar'); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 

end;  {flag  **incorrect**} 

send  (’</BODYXHTML>'); 

closeStdout; 

closeApp(  application ); 
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end;  {with  CGIEBvDatal} 


end;  {FormCreate} 

procedure  TFomil.CGIDBlC)nSendin^otFieid(currentRecord:  TDataset; 
var  s:  OpenString); 
begin 

(Hotlink  for  single  keyword  edit} 

s:-<A  HREF- '../cgi“Win/KeyEdit.exe?'+  currentrecord.fieldbyNameONumber’).AsString  + 

rtf^i 

+  currentrecordFieldbyNaraeCName').  AsStting  +  '</A>'; 
end; 
end- 
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Edit  a  Keyword:  KeyEditexe 


uratKey_edit; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DBTables,  DB; 

type 

TForml  =  class{TForm) 

DataSourcel:  TDataSource; 

Keywords:  TTable; 

CGEEnvDatal :  TCGDEnvData; 

CGIDBl:  TCGIDB; 

KeywordsNumber:  TIntegerField; 

KeywordsName:  TStringfield; 

F«x)cedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations } 
public 

{  Public  declarations  } 
end; 

var 

Forml:  TForml; 
implementation 
{$R  *.DFM} 

procedure  TForml. FonnCreate(Sender:  TObject); 
var 

KeyNumber,  KeyName:  string; 


begin 

with  CGIEnvDatal  do  begin 

webSiteINIFiiename:=paramstr(  1 ); 

appiication.onException:=cgiErrorHandler; 

application-processMessages; 
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createStdout; 

sendPrologue; 

{Find  Keyword  to  edit} 

{ Get  field  from  search  page } 

KeyNumbet”  cgiQuerySfring^; 

with  Keywords  do  begin 

(Prepare  the  table} 

open; 

first; 

{Move  to  the  correct  keyword} 
while  KeyNumber  o  fieldbyname('Number').asstring  do 
next; 

KeyName:=‘  fieldbyname('Nanie').asstring; 
end;  {with  Keywords} 

{Send  Keyword  edit  FORM  to  HTML  page} 

{Standard  Header} 

send  C<HTML><HEAD>'); 

SendTitIe('Asilomar  Signals,  Systems,  and  Computers'); 
send  ('</HEADxBODY  bgcolor=FFFFFF>’); 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 

sendCHere  is  the  Keyword  you  wanted  to  edit.  Make  changes  and  "Submit"  them.<BR>'); 

send('<PxFORM  ACTION="../cgi-win/keyedit2.exe"  METHOD="POST">'); 
send(’<INPlJT  TYPE="hidden"  Name="flag"  Value="r>’); 
send('<INPUT  TYPE="text"  NAME="keyword"  SIZE="50"  VALUE="’  +KeyName+ 
send('<INPUT  TYPE="hidden"  NAME- ’keynumber"  VALIJE="'  +KeyNumber+ 
sendC<PxCENTERxINPUT  TYPE- ’submit"  Value="Submit  Change  to  Keyword">’); 
send('<INPUT  TYPE="reset"  VALUE="Reset  to  Original 
Keyword"x/CENTERx/FORM>’); 

send('<PxFORM  ACTION="../cgi-win/Keywords.exe"  METHOI>="POST">'); 
send(’<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
send('<PxCENTERxlNPUT  TYPE="submit"  Value="CANCEL  -  Do  NOT 
change"x/CENTER></FORM>'); 


328 


{Standard  Footer} 
sendhr; 

sendC<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD^TOST'V); 
sendC<INPUT  TYPE='’hidden"  Name="flag"  Value="l">'); 
send('<P><CEFrFER><INPUT  TYPE- ’submit"  Value="Retom  to  the  System  Admin 
Options  page"><CENTEIl></FORM>'); 
send  (’<B0DYX/HTML>'); 
doseStdout; 
doseApp(  application  ); 

end;  {with  cgiEnvDatal  do} 

end;  {FormCreate} 

end.  {Application} 
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unit  Key_edt2; 
interface 


Edit  Confirmation:  KeyEdit2.exe 


uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Grai^iics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgidb,  Cgi; 

type 

TForml  =  class(TFonn) 

CGIEnvDatal:  TCGIEnvData; 

CGIDBI:  TCGIDB; 

DataSourcel:  TDataSource; 
keywords:  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations  } 
public 

{ Public  declarations } 
end; 

var 

Forml:  TForml; 
implementation 
($R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
var 

dkeyword:  string; 
dkeynumber  string; 

dflag:  string;  {valid  program  call} 

begin 

with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 
application.  onException:=cgiErrorHandler; 
application.processMessages; 
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createStdout; 

sendPrologue; 

{Standard  Header} 

send  ('<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  C</HEADxBODY  bgcolor=FFFFFF>’); 

{Determine  whether  flag  is  valid} 

dflag:=  getsmallfield  ('flag'); 
if  (dflag  =  '1')  then  begin  {fl^  is  set} 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 


{ Get  field  from  search  page } 
dkeyword—  getsmallfield  Ckeyword'); 
dkeynumber—  getsmallfield  ('keynumber’); 


{Put  changed  Keyword  into  KEYWORD  Table} 
with  Keywords  do  begin 

{ Move  to  proper  record} 

open; 

first; 

while  fieldbyNameCNumber'^asstring  o  dk^umber  do 
next; 

{Update  record  } 
edit; 

SetFields([nil,  dkeyword]); 

post; 

close; 

end;  {with  Keywords} 


{Send  the  Thankyou  page  } 

send  ('<P>The  Keyword  has  been  changed  to  <B> '  +  dkeyword  +  '</B>  <yCENTERxBR>'); 
send('<PxFORM  ACTION="../cgi-win/Keywords.exe"  METHOD="POST">'); 
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send(’<INPUT  TyPE="hidden"  Naine="flag"  Value=’'r’>’); 
send('<P><CE^^ER><INPUT  TYPE="submit"  Value="Edit  more 
Keywords"x/CENTERx/FORM>'); 

{Standard  Footer} 

sendhr; 

send(’<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD='’POST'’>'); 
send(’<INPUT  TYPE="hidden"  Name='’flag"  Value='' !">'); 
send('<PxCENTERxlNPUT  TYPE-'submit”  Value="Retum  to  the  System  Admin 
Options  page’’X/CENTERx/FORM>’); 
end  {flag  is  set} 

else  begin  {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 
sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>’); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.*); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again.</A>'); 

send  (’<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 
send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 
send  ('prosecution  for  your  actions.<BR>'); 


send  ('<PxhrxPxlMG  SRC- '../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">'); 

send  (Return  to  die  <A  HREF="http://13 1. 120.20.70/Index.html">Asilomar'); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  ('</BODYx/HTML>'); 

closeStdout; 

closeAj^  application  ); 

end;  {flag  **mcorrect**} 

send  ('</BODYx/irrMI>'); 
closeStdout; 
closeApp(  application ); 
end;  {with  CGBEnvDatal} 
end;  {FormCreate} 
end.  {Application} 
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iinitKey_add; 

interface 


Add  a  Keyword:  K^Add.exe 


uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Conlrols, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 

TForml  =  class(TFonn) 

CGIEnvDatal;  TCGIEnvData; 

CGIDBl:  TCGEDB; 

DataSourcel:  TDataSource; 

Query  1:  TQuery; 

Tablel:  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations } 
public 

{  Public  declarations } 
end; 

var 

Forml:  TForml; 

dflag:  string;  {valid  program  call} 

implementation 
{$R*DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
begin 

with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

applicatiomprocessMessages; 

createStdout; 

sendPrologue; 
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{Standard  Header} 

send  ('<HTMIXHEAD>’); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

{Determine  whether  flag  is  valid} 

dflag”  getsmallfield  ('flag'); 

if  (dflag  =  '1')  then  begin  {flag  is  set} 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 

(Send  Keyword  ADD  Form  to  HTML  page} 

send(Till  in  the  Keywords  you  would  like  to  add.<BR>'); 
send('You  may  fill  in  all  or  none  of  these  fields.  <BR>'); 

send('<PxFORM  ACTION="../cgi-win/KeyAdd2.exe"  METHOD="POST">'); 
send('<INPUT  TYPE=''hidden"  Name="flag"  Value="l">'); 
send('<PxB>New  Keyword:  </BxINPUT  TYPE="text"  NAME="keywordl"  >'); 
send('<PxB>New  Keyword:  </BxINPUT  TYPE="text"  NAME="keyword2"  >'); 
send('<P><B>New  Keyword:  </BxlNPUT  TYPE="text"  NAME="keyword3"  >'); 
send('<PxB>New  Keyword:  </BxlNPUT  TYPE="text"  NAME="keyword4"  >'); 
send('<PxCENTER><INPUT  TYPE=''submit"  Value="ADD  these 
Keywords"x/CENTERx/FORM>'); 

send('<PxFORM  ACTION="../cgi-win/Keywords.exe’'  METHOI>"POST">'); 
send('<INPUT  TYPE="hidden'’  Name="flag"  Value="l">'); 

send('<PxCENTERxlNPUT  TYPE=''submit"  Value="CANCEL  -  Do  NOT  Add  any 
Keywords"x/CENTER></FORM>'); 


{Standard  Footer} 
sendhr; 

send('<PxFORM  ACTION- '../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 

send('<PxCENTERxlNPUT  TYPE="submit"  Value="Retum  to  the  System  Admin 
Options  page"xyCENTERx/FORM>'); 

end  {flag  is  set} 

else  begin  {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 
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sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>PIease  ensure  that  you  are  authorized  to  access  this  information.’); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again.</A>’); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is’); 
send  (’mainteined  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 
send  ('prosecution  for  your  actions.<BR>'); 


send  {'<PxhrxPxIMG  SRC="../prototype/asil2b0.gif  "  align=left  alt="Asilomar  facilily">’); 

send  ('Return  to  the  <A  HREF=''http://I31.120.20.70/Index.html">Asilomar'); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  (’</BODY></HTML>'); 

closeStdout, 

cIoseApp(  applicatioD ); 

end;  {flag  **incorrect**} 

send  ('</BODYx/HTML>’); 
closeStdout; 
closeApp(  aii^lication  ); 
end;  {with  CGIEnvDatal} 

end;  {FonuCreate} 

end.  {Application} 
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unit  Key_add2; 
interface 


Addition  Confirmation:  KeyAdd2^xe 


uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 

TForml  =  class(TForm) 

CGBEnvDatal:  TCGIEnvData; 

CGIDBl:  TCGIDB; 

DataSourcel:  TDataSource; 

Tablel:  liable; 

TablelNumber:  TIntegerField; 

TablelName:  TStrin^ield; 
procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations } 
public 

{ Public  declarations  } 
end; 

var 

Forml:  TForml; 

dflag;  string;  {valid  program  call) 

implementation 
($R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
var 

dkeywordl:  string; 

<flceyword2:  string; 
dkeywordS:  string; 
dkeyword4:  string; 

begin 

with  CGBEnvDatal  do  begin 
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webSiteINIFilename:==paramstr(  1 ); 

application.onException:=cgiErrorHandIer; 

appIication.processMessages; 

createStdout; 

sendPrologue; 

{Standard  Header} 

send  ('<HTMLxHEAD>’); 

SendTitle('Asil<Mnar  Signals,  Systems,  and  Computers'); 
send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

{Determine  whether  flag  is  valid} 

dflag:=  getsmallfield  ('flag'); 
if  (dflag  =  T)  then  begin  {flag  is  set} 

send('<centerxH2>Asilomar  Conference  System  Admimstration</H2x/center>'); 
sendhr; 


{  Get  field  from  search  page  } 
dkeywordl:=  getsmallfield  Ckeywordl'); 
dkeyword2:=  getsmallfield  ('keyword2'); 
dkeyword3;=  getsmallfield  (IceywordS'); 
dkeyword4:=  getsmallfield  ('keyword4'); 


{ADD  Keywords  into  KEYWORD  Table} 

with  Tablel  do  begin 

{Update  record  } 
open; 

if  dkeywordl  o "  then 
AppendRecord([nil,  dkeywordl]); 

if  dkeyword2  o "  then 
AppendRecord([nil,  dkeyword2]); 

if  dkeywordS  o "  then 
AppendRecord([nil,  dkeywordS}); 
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if  dkeyword4  o "  then 
AppendRecord([ml,  dkeyword4]); 

close; 

end;  {with  tablel} 


{Send  the  Tfaanhyou  page  } 

sendhdr  ('3',  The  following  Keywords  have  been  ADDED. <BR>'); 

send  ('<P><B>'  +dkeywordl+  '<BR>'); 

send  C  +dkeyword2+  '<BR>'); 

send  ("  +dkeyword3+  '<BR>'); 

send  ("  +dkeyword4+  '</B>'); 

sendC</CENTER>'); 

sendC<PxFORM  ACTION="../cgi-win/Keywords.exe"  METHOD='’POST">’); 
sendC<INPUT  TYPE=”hidden"  Name="flag"  Value=T">'); 
send('<PxCENTERxlNPUT  TYPE='''submit"  Value="Edit  more 
Keywords"x/CENTERx/FORM>'); 


{Standard  Footer) 
sendhr; 

send('<PxFORM  ACTION="  ./cgi-win/Admmpwd.exe''  METHOD="POST’’>’); 
send('<INPUT  TYPE="hidden"  Name=''flag"  Value=T 

send('<PxCENTERxlNPUT  TYPE- ’submit"  Value="Retum  to  the  System  Admin 
Options  page'’x/CENTERx/FORM>'); 

end  {flag  is  set) 

else  begin  {flag  **incorrect**} 

send  (’<center><H2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>’); 
sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2></center>'); 
send  ('<P>Please  ensure  that  you  are  autihorized  to  access  this  information.'); 
send  ('<P>If  you  made  an  error,  then  please  <A  HREF- '../proto^rpe/admin20.htm">try  to  login 
again.  </A>’); 

send  ('<P>If  you  are  not  authorized  to  access  this  infonnation,  please  note  that  a  log  is'); 
send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal  ’); 
send  Ciwosecution  for  your  actions.  <BR>'); 


send  ('<PxhrxP><lMG  SRC- '../prototype/asil2b0.gif  "  align=left  alt="Asilomar  facility">’); 
send  ('Return  to  the  <A  HREF-'http://131.120.20.70/Index.html">Asilomar'); 
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send  CConference  On-line  Submission  Page</A>'); 
send  C<SOD  Yx/HTML>'); 
closeStdout; 
closeApp{  application  ); 

end;  {flag  **iiicorrect**} 

send  C</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 
end;  (with  CGDBnvl^tal} 


end;  {FomaCreate} 
end.  {Application} 


unit  Keydel; 
interface 


Delete  Keyword(s):  KeyDeLexe 


uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DBTables,  DB; 

type 

TForml  =  class(TFonn) 

DataSourcel:  TDataSource; 

Query  1;  TQuery; 

Tablel:  TTable; 

CGlEnvDatal:  TCGIEnvData; 

CGIDBl:  TCGEDB; 

TablelNumber:  TIntegerField; 

TablelName:  TStrin^ield; 

QueiylNumber:  TIntegerField; 

QuerylName;  TStrin^ield; 
procedure  FormCreate(Sender:  TObject); 
procedure  CGIDB  lC)nSendin^otField(currentRecord:  TDataset; 
var  s;  OpenString); 
private 

{ Private  declarations } 
public 

{ Public  declarations  } 
end; 

var 

Forml:  TForml; 
implementation 
{$R  *.DFM} 

procedure  TForml. FormCreate(Sender;  TObject); 
var 

dflag;  string; 
begin 

with  CGlEnvDatal  do  begin 
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{Standard  Header} 
webSiteINIFilename:==parainstr(l); 
ai>plication.onException;=cgiErrorHandler, 
application.processMe$sages; 

createStdout; 

sendRrologue; 

send  (’<HTMLxHEAD>'); 

SendTitleCAsilomar  Signals,  Systems,  and  Computers'); 
send  ('</KEADxBODY  bgcoloi=FFITFF>'); 


{Determine  whether  flag  is  valid} 

dflag:=  getsmallfield  ('flag'); 
if(dflag  =  'r)  then  begin  {flag  is  set} 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>*); 
sendhr, 

{Send  Instructions} 

send('<centa‘>These  are  the  current  Keywords.<br>*); 

send(To  DELETE  a  Keyword,  simply  select  the  Number  next  to  the  Keyword  that  you  would 
liketoDELETE.<BR>’); 

{Retrieve  current  Keywords} 
with  Queryl  do  begin 

close; 

sql.clear; 

sql.add('Select*FROM  Keyword '); 
sql.add('Order  By  Number*); 
open; 

if  recordcount  >  0  then  begin 
Tablel.Open; 

CGIDB 1  .DrawTable; 
send('</center>'); 

Table  1. Close; 

end  {if  recordcoimt  >  0} 

else 

sendhdr  ('2','There  are  no  Keywords  in  the  Database  to  Delete!’); 
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end;  {with  Queryl} 


(Delete  all  fields  option} 

sendC<PxFORM  ACTION="../cgi-win/KeyDel2.exe"  METHOD="POST">’); 
send(’<INPUT  TYPE="hidden"  Name=’’flag"  Value=’' !">'); 
send('<INPUT  TYPE="hidden"  Name="DeleteAll"  Value="Yes">'); 
send(’<PxCENTERxlNPUT  TYPE=’’submit"  Value="****  Delete  ALL  the  Keywords 
*«**''x/CENTERx/FORM>'); 

{HTML  Footer} 
sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POSr'>'); 
send(’<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
send('<PxCENTERxlNPUT  TYPE="subtnit"  Value="Retum  to  the  System  Admin 
Options  page"></CENTERx/FORM>'); 
end  {flag  is  set} 

else  begin  {flag  **incorrect**} 

send  (’<centerxH2>Asilomar  Conference  on  Sipials,  Systems,  &  Computers</H2x/center>'); 
sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.’); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again.</A>’); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 
send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 
send  ('prosecution  for  your  actions.  <BR>'); 


send  (’<Pxhr><PxIMG  SRC- '../prototype/asil2b0,gif  "  align=left  alt="Asilomar  facilily">'); 

send  CRetum  to  the  <A  HREF="http://131.120.20.70/Index.html">Asilomar'); 

send  ('Conference  On-line  Submission  Page</A>’); 

send  (’</BODYx/HTM1>'); 

closeStdout; 

closeApp(  application ); 

end;  {flag  **incorrect**} 

send  (’</BODYx/HTML>’); 
closeStdout; 
closeApp(  application ); 
end;  {with  CGIEnvDatal} 
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end;  {FormCreate} 

procedure  TForml.CGIDB10nSendingHotField(ciirrentRecord:  TDataset; 
var  s:  OpenString); 
begin 

{Hotlink  for  single  keyword  edit} 

s:— <A  HREF="../cgi-win/KeyDel2.exe?'+  currentrecord.fieldbyName('Number').AsString  + 
+  currentrecord.FieldbyName(TSfumber').AsString  +  '</A>'; 
end; 
end. 
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Verification  of  Delete:  KeyDel2.exe 

unit  Key_deI2; 

interlace 

uses 

SysUtils,  WinTypes,  WinPfocs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 

TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

CGIDBl:  TCGEIB; 

DataSourcel:  TDataSource; 

Tablel:  TTable; 

TablelNumber.  TIntegerField; 

TablelName:  TStringField; 
procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations } 
public 

{ Public  declarations  } 
end; 


Forml:  TForml; 
implementation 
{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
var 

KeyNumber,  {Number  of  the  Keyword  record} 

KeyName,  {Name  of  the  Keyword} 

dDeleteAll,  {action  flag  <  if  set  then  delete  all  the  Keywords} 

dflag:  string;  {valid  pro^am  call} 

begin 

with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 
application.onException:=cgiErrorHandler; 


ai^lication.processMessages; 


createStdoiit; 

sendPrologue; 

{Standard  Header}^ 

send  ('<iriM><HEAD>'); 

SendTitleCAsilomar  Signals,  Systems,  and  Computers'); 
send  ('</HEADxBODYbgcolof=FFFFFF>'); 

{Determine  whether  flag  is  valid) 

dflag—  getsmailfield  ('flag'); 
if  (dflag  = '!')  then  begin  {flag  is  set} 

send('<centerxH2>Asilomar  Conference  System  Adminisnation</H2></center>'); 
sendhr; 


{Find  Keyword  to  Delete) 

{ Get  field  from  search  page ) 
try 

dDeIeteAll;=  getsmailfield  (DeleteAll'); 
finally 

{Check  to  see  if  'Delete  all  fields'  is  true) 

KeyNumber:=  cgiQueiyString^; 
end; 

if  getsmailfield  CDeleteAll')  o  cginotfound  then  begin 

{Cbeck  to  see  if  'Delete  all  fields'  is  true) 
dDeleteAll:=  getsmailfield  (DeieteAir); 

if  dDeleteAll  =  'Yes'  then  begin 

with  Table!  do  begin 

sendhdr  ('2',  'Are  you  sure  you  want  to  Delete  ALL  of  the  Keywords  in  the  Database!'); 

send('<PxFORM  ACTION="../cgi-win/Keywords.exe"  ME'raOD="POST">'); 
send('<INPUT  TYPE="hidden''  Name="flag''  Value="l">'); 
send('<PxCENTERxINPUT  TYPE="submit"  Value="CANCEL  -  Do  NOT 
Delete"x/CENTERx/FORM>’); 
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send(’<PxFORM  ACTI0N=”../cgi-win/K;eyDel3.exe"  METHOD="POST">'); 
sendC<INPUT  TYPE="hidden"  Name='’flag"  Value=’’ !">’); 
sendC<INPUT  TYPE="hidden”  NAME=”keynumber"  VALUE="delete">'); 
sendC<INPUT  TYPE="hidden"  NAME^^'kayname"  VALUE="delete’'>'); 
sendC<PxCENTERxINPUT  TYPE="submit"  Yalue="***  YES  -  DELETE  ALL 
Keywords  in  the  Database!  ***''x/CENTERx/FORM>'); 
end;  {with  Tabiel} 

end;  (if  dDeleteAU} 

end  {if  cginotfound} 

else  begin  {Delete  one  record} 

with  Tabiel  do  begin 

{Prqjare  the  table} 

open; 

first; 

{find  the  correct  keyword} 

if  KeyNumber  o  fieldbynameCNumbei'Xasstring  then  begin 

{move  to  the  next  field  until  we  find  the  correct  one} 

repeat 

next; 

until  KeyNumber  =  fieldbynameCNumber’Xasstring; 
end;  {if  keyword} 

{Get  the  Keyword  Name} 

KeyName;=  fieldbyname(Name').asstring; 
end;  {with  Tabiel} 

{Send  Keyword  edit  FORM  to  HTML  page} 

send('Are  you  sure  you  want  to  DELETE  the  keyword  <B>'  +KeyName+  '.</BxBR>'); 

send(’<PxFORM  ACTION=="../cgi-win/KeyDel3.exe"  METHOD="POST">'); 
sendC<INPUT  TYPE="hidden"  Name="flag"  Value="  1  ">'); 
send('<INPUT  TYPE=’’hidden"  NAME=’’keynumber"  VALUE="'  +KeyNumberf 
sendC<INPUT  TYPE="hidden"  NAME="keynaine"  VALUE="'  +KeyNamfrf 
send('<PxCENTERxlNPUT  TYPE="submit"  Value="  Yes,  DELETE  this 
Keyword"x/CENTERx/FORM>’); 
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send(’<PxFORM  ACTION="../cgi-win/K:eywords.exe'’  METHOD=”POST">0; 
send('<INPUT  TYPE="hidden"  Name="flag''  Value="l">’); 
send('<PxCENTERxINPUr  TYPE=’'submif  Value="CANCEL  -  Do  NOT 
Delete"X/CENTERx/FORM>'); 
end;  {Delete  one  record} 

(Standard  Footer} 
sendhr; 

send(’<PxFORM  ACTION="../cgi*win/Adminpwd.exe''  METHOD="POSr'>'); 
sendC<INPUT  TYPE="hidden"  Name^"flag"  Value="r'>'); 
send('<PxCENTERxINPUT  TyPE="submit"  Value=''Retum  to  the  System  Admin 
Options  page''x/CENTERx/FORM>'); 
end  (flag  is  set} 

else  begin  {flag  **incorrect**} 

send  ('<centefxH2>Asilomar  Conference  on  Sisals,  Systems,  &  Computers</H2></center>'); 
sendhr; 

send  (’<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again.</A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 
send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 
send  Cprosecution  for  your  actions.<BR>'); 


send  ('<PxhrxPxlMG  SRC=^"../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">'); 

send  ('Return  to  the  <A  HREF- 'http://131.120.20.70/Index.html''>Asilomar'); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  C</BODYx/HTML>'); 

closeStdout; 

closeApp(  application  ); 

end;  {flag  **mcorrect**} 

send  ('</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 
end;  {with  CGlEnvDatal} 


end;  (Formcreate} 
end.  {Application} 
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unit  Key_del3; 
interface 


Deletion  Confirmation:  KeyDel3.exe 


uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 

TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

Keywords:  TTable; 

CGIEnvDatal:  TCGDEnvData; 

CGIDBl:  TCGIDB; 

KeywordsNumben  TIntegerField; 

KeywordsName:  TStringField; 
procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations } 
public 

{  Public  declarations  } 
end; 

var 

Forml:  TForml; 
implementation 
{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
var 

dKeyNumber,  dKeyword:  string; 

dflag:  string;  {valid  program  call} 


begin 

with  CGIEnvDatal  do  begin 


webSiteINIFilename:=paramstr(  1 ); 

appIication.onException:=cgiErrorHandler; 

application.processMessages; 
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createStdout; 

sendPrologue; 

(Standard  Header} 

send  C<HTMLxHEAD>’); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  ('c/HEADxBODY  bgcoloi=FEFFFF>'); 


(Determine  whether  flag  is  valid} 
dflag—  getsmallfield  ('flag'); 
if  (dflag  =  '1')  then  begin  (flag  is  set} 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr. 


( Get  field  from  search  page } 
&eyword:=  getsmallfield  ('keyname'); 
dkeynumber”  getsmallfield  ('keynumber'); 


if  dkeyword  =  'delete'  then  begin 

with  Keywords  do  begin 

open; 

first; 

while  not  EOF  do 
delete; 

end;  (with  Keywords} 

sendhdr  ('2',  'ALL  Keywords  were  deleted!'); 
end  (if dkeyword  =  delete} 

else  begin  (Delete  one  keyword} 

(Delete  Keyword  from  KEYWORD  Table} 


with  Keywords  do  begin 
( Move  to  proper  record} 
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open; 

first; 

while  fieldbyName('Number').asstring  o  dkeynumber  do 
next; 

{Delete  record  } 

edit; 

delete; 

close; 

end;  {with  Keywords} 


{Send  the  Thanlgrou  page  } 

send  ('<P>The  Keyword  <B> '  +  dkeyword  +  ’</B>  has  been  DELETED.</CENTERxBR>’); 
sendC<PxFORM  ACTION=''../cgi-win/KeyDel.exe”  METHOD=TOST">’); 
sendC<INPUT  TYPE="hidden"  Name="flag"  Valne="  !">'); 
send('<PxCENTERxlNPUT  TYPE="submit"  Value="DELETE  more 
Keywords"x/CENTERx/FORM>'); 

end;  {else  Delete  one  keyword} 

sendC<PxFORM  ACTION="../cgi-win/Keywords.exe"  ME’raOD="POST''>'); 
sendC<INPUT  TYPE=”hidden"  Naine="flag"  Value="l">’); 
send('<PxCENTERxlNPUT  TYPE=''submit"  Value="Edit  more 
Keywords"x/CENTERx/FORM>'); 

(Standard  Footer} 
sendhr; 

sendC<PxFORM  ACnON="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
sendC<INPUT  TYPE="hidden"  Name="flag"  Value="r'>'); 
sendC<PxCENTERxlNPUT  TYPE=''submit'’  Vaiue="Retum  to  the  System  Admin 
Options  page"></CENTERx/FORM>'); 

end  {flag  is  set} 

else  begin  {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2xycenter>’); 
sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongX/H2><center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm''>try  to  login 

again.</A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is’); 
send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal  ’); 
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send  ('prosecution  for  your  actions.<BR>'); 


send  C<PxhrxpxIMG  SRC="../prototype/asil2b0.gif "  align=left  aJt="Asilomar  facility">'); 
send  ('Return  to  the  <A  HREF="http://131. 120.20. 70/Index.htmr'>Asilomar'); 
send  ('Conference  On-line  Submission  Page</A>'); 

end;  {flag  **iiicorrect**} 

send  ('</BOD  Yx/HTMI>'); 
closeStdout; 
closeApp(  application ); 
end;  {with  CGlEnvDatal} 

end;  {Formcreate} 

end.  {Application} 
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unit  Invite_; 
interface 


Display  Titles:  Invite.exe 


uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DB,  DBTables; 

type 

TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

Articles:  liable; 

CGIEnvDatal;  TCGIEnvData; 

CGIDBl:  TCGEIB; 

procedure  FonnCreate(Sender:  TObject); 
private 

{ Private  declarations  } 
public 

{ Public  declarations  } 
end; 

var 

Forml:  TForml; 

dbtitle,  dbPaper_Number:  string; 

dflag:  string;  {valid  program  call} 

implementation 

{$R  *.DFM} 

procedure  TForml.FormCreate(Sender:  TObject); 
begin 

with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 
application.  onException:=cgiErrorHandler; 
application.  processMessages; 
createStdout; 
sendPrologue; 

send  ('<HTMLxHEAD>’); 
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SendTitle(’Asilomar  Signals,  Systems,  and  Computers’); 
send  ('</HEADxBODY  bgcoloi=FFFTlT>'); 


{Determine  whethw  flag  is  valid} 
dflag—  getsmallfield  ('flag’); 
if  (dflag  =  T)  then  begin  {flag  is  set} 

send('<center><H2>Asilomar  Conference  System  Administration</H2><ycenter>'); 
sendhr; 


{Send  Instrnctions} 

send(’<P>Articles  must  be  marked  as  Invited  so  th^  will  not  be  included  in  the  Review 
I^ocess. '); 

send(’<PxULxLI>To  mark  Articles  as  Invited,  select  the  checkbox  next  to  the 
Title.<BR>’); 

send('<LI>To  change  Articles  to  NOT  Invited,  change  the  action  in  the  drop-down  box  to 
"NOT  Invited”  and  then ’); 

sendfselect  the  checkbox  next  to  the  Title,</UL>’); 

send('<P>Note:  it  is  not  necessary  to  mark  an  article  NOT  Invited  unless  it  was  previously 
marked  Invited '); 

sendCand  it  needs  to  be  changed.  When  printing  Article  information  for  review,  only  Articles 
marked  Invited  are  ’); 

sendfignored.  Articles  that  are  not  marked  <B>or<vB>  are  marked  NOT  Invited  are  printed 
for  review.'); 
sendhr, 

{Build  Form} 

sendC<FORM  ACTION="../cgi-win/Invite2.exe"  METHOI>="GET’V); 

{Build  Pull-Down  menu  for  choices} 

send('<PxcenterxSELECT  NAME=="Action">'); 
send('<OPTION>  Invited*); 
send('<OPTION>  NOT  Invited*); 
send('</SELECTx/centerxP>'); 

{Build  the  check  boxes  of  Titles} 
with  Articles  do  begin 
open; 
first; 

While  not  Articles.EOF  do  begin 

dbtitle:-  fieldbyname(Title*).asstring; 
dbPaper_Number~fiel^yname('Paper_Numbei’).asstring; 
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send  ('<INPUT  TYPE="checkbox"  NAME="T"  Value="’  +dbPaper_Number+  "’># ' 
+dbPaper_Number+ ' '  +dbtitle+  '<BR>'); 
next; 

end;  (while  not  EOF} 
close; 

end;  {with  articles  do} 

send('<PxCENTERxINPUT  TYPE="submit"  Value="  Submit  these  articles  "xP>  '); 
send('<INPUT  TYPE="reset"  VALUE=”Reset  values"x/CENTERX/FORM>'); 


sendhr; 

send('<PxFORM  ACTION- '../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
sendC<INPUTTYPE="hidden"  Name="flag"  Value='T">’); 
send('<PxCENTERxlNPUT  TYPE="submit"  Value="Retumto  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
end  {flag  is  set} 

else  begin  {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>’); 
sendhr, 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  (’<P>If  you  made  an  error,  then  please  <A  HREF- ’../prototype/admin20.htm">try  to  login 

agam.</A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is*); 
send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal  *); 
send  ('prosecution  for  your  actions.<SR>'); 

send  ('<PxhrxPxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">’); 

send  CRetum  to  the  <A  HREF="http;//131.120.20.70/Index.html">Asilomar'); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application  ); 

end;  {flag  **incorrect**} 

send  C</BODYx/HTML>'); 
closeStdout; 
closeApp(  ^plication ); 
end;  {with  CGBEnvDatal} 
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end;  {FormCreate} 
end. 
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unit  Invite_2; 
interface 


Invite  Titles:  Invite2.exe 


uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 

TForml  =  ciass(TForm) 

CGDEnvDatal:  TCGIEnvData; 

CGIDBl:  TCGIDB; 

DataSourcel:  TDataSource; 

Articles:  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations } 
public 

{ Public  declarations } 
end; 

var 

Forml:  TForml; 

i,  j,  dTitle,  MySelector,  dbPaper  Number  integer; 

dAction :  string; 
dTitlein:  string; 
dString,  AssignString:  string; 

Titlelist :  TStringList; 

function  TitleToInt  (  S:  string)  :integer; 


implementation 
{$R  *.DFM} 

^  ^  9fe  4c  ifc  ^  4c  4e  4:  sfe  4c  4: ife  He  aH  4c  4;  9|c  ^  >|e  3|:  ^ 

function  TitleToInt  {  S:  string)  :integer; 

(This  function  is  necessary  because  the  string  value  of  dTitle  has  several  spaces  in 
it  and  the  strtoint  function  cannot  handle  the  conversion  properly} 
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var 

temp;  string;  {temporary  variable  to  build  new  string  into} 
j:  integer;  {Counting  Variable  to  keep  track  of  how  many  characters  are  in  the 

number} 

begin 

{set  the  countet*  to  zero} 

j”0; 

{count  the  characters} 
repeat 

until  S0+13=”; 

{Copy  the  valid  number  characters  over  to  temp} 

temp:=Copy(S,  IJ); 

{Convert  the  temp  string  to  an  integer  value} 

TitleToInt  ;=  strtoint  (temp); 

end;  {NoSpaces} 

^  He  lie  9k  ♦♦  aft  4e  i)c4c  :|e  lit  #  Jk  4c  4c  t  3|e  He  He 

procedure  TForml.formcreate(Sender;  TObject); 
begin 

with  CGEEnvDatal  do  begin 

webSiteINIFiIeiiame:===paramstr(l); 
application.  onException:=cgiEiTorHandler; 
application.  processMessages; 
createStdout; 
sendPrologue; 

send  ('<HTMLxHEAD>’); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers’); 
send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 

{Get  query  string  from  Assi^.exe} 

Titlelist:=  TStringlist.  create;  {list  of  titles  to  assign  to  the  session} 

AssignString:=  CGIQueiyString^; 
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j~  0;  {The  counter  for  the  individual  strings  within  the  QueryString} 


for  i  ~  7  to  Length(AssignString)  do  {The  counter  for  going  through  the  AssignString  - 
eight  is  the  first  valuable  character  (the  beginning  of  the  Session  Neumonic) } 

if  AssignStringfi]  o  then  begin  {the  character  is  valuable) 
dString[j]  :=  AssignString[i]; 

end  {if  AssignString[i]  o  '&*  then) 
else  begin  (The  &  signifies  the  end  of  the  string) 

TitleList.add  (dString); 

dString:= '  {Blank  out  the  old  values) 

j  :=0;  {reset  the  string  counter) 

i~  i+ 1 ;  {Skip  over  the  text  *'T=”) 

end;  {else} 

TitleListadd  (dString);  {This  is  to  put  the  last  string  into  the  string  list.  It  is 
necessary  because  there  is  no  &  at  the  end) 

(Place  the  Session  Neumonic  into  each  Paper_Number  passed) 

{The  first  item  in  the  Title  List  is  the  Session  Neumonic) 
dAction;=  TitleList[0]; 

if  (dAction[  1  ]  =  T)  then  MySelector  :=  1 ; 
if  (dAction[l]  =  "N')  then  MySelector  ;=  2; 


case  MySelector  of 
1 ;  begin  {Invite  only) 

{Send  confirmation) 

sendhdr  ('3',  '<P>The  following  Articles  were  INVITED;<brxcenter>'); 

{Invite  the  articles  with  the  selected  Paper_Numbers) 
with  Articles  do  begin 

open;  {Prepare  the  Table  for  use) 

for  i:=  1  to  TitleList.count-1  do  begin  {The  rest  of  the  items  are  Paper_Numbers) 

{Get  the  next  title  number) 

dTitlein:=  TitleListp]; 

{Convert  the  Title  string  to  an  integer  value) 
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dTitle:=  TitleToInt  (dTitlein); 


{Move  to  proper  record} 

first;  {go  back  to  the  first  record  before  every  new  search} 
while  fieldbyiiame(Paper_Niimber').asmteger  o  dTitle  do 
next; 

{Invite  the  Article} 

edit; 

Setfields  ([nil,  nil,  T^);  {The  remaining  fields  are  ignored} 
post; 

{Send  title  name} 

send(W '  +fieldb3mame(Paper_Niimber').asstring+ ' '  +fieldbyname(Title').assning+ 


end;  {for} 

close;  { the  table} 

end;  {with  Articles} 
send('</center>'); 
end;  {Accept  only} 

2:  begin  {NOT  Invited} 

{Send  confirmation} 

sendhdr  ('3',  ’<P>The  following  Articles  were  marked  as  NOT 
INVITED:<brxcenter>'); 

{Invite  the  artides  with  the  selected  Paper_Numbers} 
with  Articles  do  begin 

open;  {Prepare  the  Table  for  use} 


for  i:=  1  to  TitleList. count- 1  do  begin  {The  rest  of  the  items  are  Paper_Numbers} 

{Get  the  next  title  number} 
dTitlein:=  TitleListp]; 

{Convert  the  Title  string  to  an  int^er  value) 
dTitle:=  TitleToInt  (dTitlein); 

{Move  to  proper  record} 


359 


fiiBt;  {go  back  to  the  first  record  before  every  new  search} 
while  fieIdbyname('Paper_Number').asinteger  o  dTitle  do 
next; 

{Invite  the  Article} 

edit; 

Setfields  ([nil,  nil,  'N']);  {The  remaining  fields  are  ignored} 
post; 

{Send  title  name} 

sendC# '  +fieldbyname(’Paper_Number').asstring+ ' '  +fieldbyname('Title').asstring+ 

'<BR>'); 


end;  {for} 

close;  { the  table} 

end;  {with  Articles} 

end;  {Invite  AND  NOT  Invite} 

else  begin  {selector  not  working} 

send('Selector  did  not  work<BR>'); 
send(' Action  vras '  +dAction+ 
end;  {else} 

end;  {case} 


{Send  Footer} 

sendC<PxFORM  ACTION="../cgi-win/Invite.exe"  METHOD-"POST">'); 
send(’<CENTERxINPUT  TYPE=”hidden"  Name="flag"  Value="l">’); 
send('<PxlNPUT TYPE-'submit"  Value="Invite more Articles"></FORMxp>  *); 

sendhr; 

send(’<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST'’>'); 
send('<INPUT  TYPE="hidden"  Name="flag’’  Value="r'>’); 
send('<PxCENTERxlNPUT  TYPE="submit"  Value="Retum  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
send  ('</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 
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end;  {with  cgiEnvOatal  do} 
end;  {FormCreate} 
end. 


unit  Choose_; 
interface 


Select  Articles:  Choose.exe 


uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgi<ft>,  Cgi; 

type 

TForml  =  class(TForm) 

CGIEnvDatal:  TCGBBnvData; 

CGIDBl:  TCGIDB; 

DataSourcel:  TDataSource; 

Query  1:  TQuery; 

Articles:  TTable; 

procedure  FonnCreate(Sender:  TObject); 
private 

{  Private  declarations } 
public 

{ Public  declarations } 
end; 

var 

Forml:  TForml; 

dbtitle,  dbPaper_Number:  string; 

dflag:  string;  {valid  program  call} 

implementation 

{$R  *.DFM> 

procedure  TForml. FormCreate(Sender:  TObject); 
begin 


with  CGIEnvDatal  do  begin 

webSiteINIFilename:=piu'amstr(  1 ); 
application.  onException:=cgiErrorHandler; 
application.  processMessages; 
createStdout; 
sendPrologue; 
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send  C<erMLxiIEAD>’); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  ('■</HEADxBODY  bgcolor==fTFFFF>'); 


{Determine  whether  flag  is  valid} 
dflag:=  getsmallfield  ('flag'); 
if  (dflag  =  '1')  then  begin  {flag  is  set} 

send('<centerxH2>Asilomar  Conference  System  Administration</H2xycenter>’); 
sendhr; 

{Build  Form} 

send('<PxFORM  ACTION*".  ./cgi-win/Choose2.exe"  METHOD="GET">'); 

{build  PuH'Down  menu  for  choices} 

send('There  are  four  methods  of  accepting  or  rejecting  Articles:<BRxul>'); 
send('<LI> Accept  the  selected  articles  only,  do  not  modify  any  other  Articles'); 
send('<LI>Accept  the  selected  articles  AND  Reject  all  others'); 
send('<LI>Reject  the  selected  articles  only,  do  not  modify  any  other  Articles'); 
send{'<LI>Reject  the  selected  articles  AND  Accept  all  others<^ul>'); 

send('<PxcenterxSELECTNAME="Action">'); 
send('<OPTION>  ACCEPT); 
send(’<OPTION>  ACCEPT_then_Reject'); 
send('<OPTION>  REJECT); 
send(’<OPTlON>  REJECT_then_Accepf ); 
send('</SELECTx/centerxp>'); 

{Build  the  check  boxes  of  Titles} 
with  Articles  do  begin 
open; 
first; 

While  not  Articles.EOF  do  begin 

dbtitle:*  fieldbyname('Title').asstring; 
dbPaperNumber;*  fieldbynamc(Taper_Number').  asstring; 
send  ('<INPUT  TYPE="checkbox"  NAME*"T"  Value*"'  +dbPaper_Number+  '"> ' 
+dbtitlef '  <BR>'); 
ne5d; 

end;  {while  not  EOF} 
close; 

end;  {with  articles  do} 
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sendC<P><CENTER><INPUT  TYPE="submit"  Value="  Accept  /  Reject  these  articles  "xP> 

sendC<INPUT  TYPE="reset"  VALUE="Reset  values"x/CENTERx/FORM>'); 

sendhr; 

send('<P><FORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
sendC<INPUT  TYPE="hidden"  Name="flag"  Value="r’>’); 
send(*<PxCENTERxINPUT  TYPE="submit"  Value="Retum  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
endb} 

else  begin  {flag  **mcorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Compiiters</H2x/center>'); 
sendhr; 

send  ('<center><H2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 
send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 
send  ('<P>If  you  made  an  error,  then  please  <A  HREF- '../prototype/admin20.htm">try  to  login 
again.  </A>’); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 
send  Cmaintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 
send  ('prosecution  for  your  actions.  <BR>'); 


send  ('<PxhrxPxlMG  SRC="../prototype/asil2b0.gif  "  align=left  alt="Asilomar  facility">’); 
send  (Return  to  the  <A  HREF="http://131.120.20.70/Index.html">Asilomar'); 
send  ('Conference  On-line  Submission  Page</A>'); 

end;  {flag  **incorrect**} 

send  ('</BOD  Yx/HTML>'); 
closeStdout; 
closeApp(  application  ); 
end;  {with  CGffinvDatal} 

end;  {FormCreate} 

end. 
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unit  Choose_2; 
interface 


Accept  /  Reject  Articles:  Choose2.exe 


uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgidb,  Cgi; 

type 

TForml  =  class(TForm) 

CGDEnvDatal:  TCGIEnvData; 

CGIDBl:  TCGIDB; 

DataSourcel:  TDataSource; 

Articles:  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations } 
public 

{ Public  declarations  } 
erid; 

var 

Forml:  TForml; 

i,  j,  dTitle,  MySelector,  dbPaper  Number:  integer; 

dAction :  string; 

dTitlein:  string; 

dString,  AssignString:  string; 

Titlelist :  TStrin^ist; 

function  TitleToInt  ( S:  string)  :integer. 


imj^ementation 

{$R*.DFM} 

^  4c9ie  aK  3|e4:9ic:|e9|c<|eii(  4c*  itc  4c  4c  ^ 

function  TitleToInt  ( S:  string)  :integer; 

{This  function  is  necessary  because  the  string  value  of  dTitle  has  several  spaces  in 
it  and  the  strtoint  function  cannot  handle  the  conversion  properly} 
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var 

temp:  string;  {temporary  variable  to  build  new  string  into} 
j :  integer;  {Counting  Variable  to  keep  track  of  how  many  characters  are  in  the 

number} 

begin 

{set  the  counter  to  zero} 

j"0; 

{count  the  characters} 
repeat 
j:=j+l; 

until  S0+l3=”; 

{Copy  the  valid  number  characters  over  to  temp} 

temp:=Copy(S,  IJ); 

{Convert  the  temp  string  to  an  integer  value} 

TMeToInt  strtoint  (temp); 


end;  {NoSpaces} 

1 He  :fe9ic  ♦♦  4:  a|(  ale  4c  3ic  4: «  ^ 


procedure  TForml.formcreate(Sender:  TObject); 
begin 

with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr{  1 ); 

application.onException:=cgiErrorHandler; 

application.  processMessages; 

createStdout; 

sendPrologue; 

send  ('<HTMIXHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  ('</HEAD><BODY  bgcolor=FFFFFF>’); 

send('<centerxH2>Asilomar  Conference  System  Administration</H2></center>'); 
sendhr; 

{Get  query  string  from  Assign.exe} 

Titlelist:=  TStringlist  create;  {list  of  titles  to  assign  to  the  session} 
AssignString:=  CGIQueiyString^; 
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j~  0;  {The  counter  for  the  individual  strings  within  the  Query  String} 

for  i  :=  7  to  Length(AssignString)  do  {The  counter  for  going  through  the  AssignString  - 
eight  is  the  first  valuable  character  (the  beginning  of  the  Session  Nenmonic) } 

if  AssignString[i]  o  then  begin  {the  character  is  valuable} 
dStringU]  :=  AssignString[i]; 

end  {if  AssignString[i]  o  then} 

else  begin  {The  &  signifies  the  end  of  the  string} 

TitleListadd  (dString); 

dString:= '  {Blank  out  the  old  values} 

jt=0;  {reset  the  string  counter} 

i:=  i+ 1 ;  {Skip  over  the  text  "T=”} 

end;  {else} 

TitleList.add  (dString);  {This  is  to  put  the  last  string  into  the  string  list  It  is 
necessary  because  there  is  no  &  at  the  end} 

{Place  the  Session  Neumonic  into  each  Paper_Nuniber  passed} 

{The  first  item  in  the  Title  List  is  the  Session  Neumonic} 
dAction:=  TitleList[0]; 

if  (dAction[l]='A')  and  (dAction[7]  o then  MySelector  :=  1; 
if  (dAction[l]- A')  and  (dAction[7]  = then  MySelector  :=  2; 
if  (dAction[l]='R')  and  (dAction[7]  o then  MySelector  :=  3; 
if  (dAction[l]='R')  and  (dAction[73  = then  MySelector  :=  4; 


case  MySelector  of 
1  :  begin  {Accept  only} 

{Send  confirmation} 

sendhdr  ('3',  '<P>The  following  Articles  were  ACCEP'IED:<bfxcenter>'); 

{accept  the  articles  with  the  selected  Paper_Numbers} 
with  Articles  do  begin 

open;  {Prepare  the  Table  for  use} 

for  i~  1  to  TitleList.count-1  do  begin  {The  rest  of  the  items  are  Paper_Numbers} 

{Get  the  next  title  number} 
dTitlein”  TitleList[i]; 
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{Convert  the  Title  string  to  an  integer  value} 
dTitle:==  TitleToInt  (dTitlein); 

{Move  to  proper  record] 

first;  {go  back  to  the  first  record  before  every  new  search} 
while  fieldbyname('Paper_Number').asinteger  o  dTitle  do 
next; 


{Insert  the  Session} 
edit; 

Setfields  ({nil,  nil,  nil,  'Y^);  {The  remaining  fields  are  ignored} 
post. 


{Send  title  name} 

send("  +fieldbyname('Title').asstring+  '<BR>'); 

end;  {for} 

close;  { the  table} 

end;  {with  Articles} 
send('</center>'); 
end;  {Accept  only} 

2  :  begin  {Accept  and  Reject} 

{Send  confirmation} 

sendhdr  ('3^  '<P>The  following  Articles  were  ACCEPTED:<bixcenter>'); 

{accept  the  articles  with  the  selected  Paper_Numbers} 
with  Articles  do  begin 

open;  {Prepare  the  Table  for  use} 

{Set  all  *Not  Invited*  Articles  to  "rejectol"} 
while  not  EOF  do  begin 

if  fieldbyname(Tnvited').asstring  o  'Y*  then  begin 
edit; 

Setfields  ([nil,  nil,  nil,  'N']);  {The  remaining  fields  are  ignored} 
post; 

end;  {If  not  invited} 

next; 
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end;  {While} 

for  i;=  1  to  TitleList.count-1  do  begin  (The  rest  of  the  items  are  Paper_Nttmbers} 

{Get  the  next  title  number) 
dTitlein—  TitleList[i]; 

{Convert  the  Title  string  to  an  integer  value) 
dTitle-  TitleToInt  (dTitlein); 

{Move  to  proper  record) 

first;  {go  back  to  the  first  record  before  every  new  search) 
while  fieldbyname('Paper_Number').asinteger  o  dTitle  ch) 
next; 

{Insert  the  S^sion) 

edit, 

Setfields  ([nil,  nil,  nil,  'Y^);  {The  remaining  fields  are  ignored) 
post; 

{Send  title  name) 

send("  +fiel(ft)yname(Title').asstring+  '<BR>'); 
end;  {for} 
close;  { the  table) 
end;  {with  Articles) 

sendhdr('3',  '<P>All  OTHER  Articles  were  Rejected!  </centerxBRxP>'); 
end;  {Accept  and  Reject) 

3  :  begin  {’Reject  only) 

{Send  confirmation) 

sendhdr  ('3',  '<P>The  following  Articles  were  REJECTED:<brxcenter>'); 

{The  rest  of  the  items  are  Paper_Numbers} 
with  Articles  do  begin 

open;  {Prepare  the  Table  for  use) 
for  i:=  1  to  TitleList.counM  do  begin 

{Get  the  next  title  number) 
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dTitlein:=  TitleListp]; 


{Convert  the  Title  string  to  an  integer  value} 
dTitle:=  TitleToInt  (dTitlein); 

{Move  to  proper  record} 

first;  {go  back  to  the  first  record  before  every  new  search} 
wiiile  fieldbyname(’Paper_Number’).asinteger  o  dTitle  do 
next; 

{Insert  the  Session} 
edit; 

Setfields  ([nil,  nil,  nil,  ’hT]);  {The  remaining  fields  are  ignored} 
post; 

{Send  title  name} 

seiKi("  +fieldbyname(Title').asstring+  '<BR>'); 

end;  {for} 

close;  { the  table} 
send('</center>'); 

end;  {with  Articles} 

end;  {Reject  only} 

4;  begin  {'Reject  and  accept'} 

{Send  confirmation} 

sendhdr  ('3',  '<P>The  following  Articles  were  REJECTED;<brxcenter>'); 

{accept  the  articles  with  the  selected  Paper_Numbers} 

with  Articles  do  begin 

open;  {Prepare  the  Table  for  use} 

{Set  all  *Not  Invited*  Articles  to  "accepted"} 
while  not  EOF  do  begin 

if  fieldbyname  ('lnvited').asstring  o  'Y*  then  begin 
edit; 

Setfields  ([nil,  nil,  nil,  'Y'});  {The  remaining  fields  are  ignored} 
post; 
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end;  {if  not  invited} 


next; 

end;  (While) 

for  i~  1  to  TitIeList.count-1  do  begin  (The  rest  of  the  items  are  ]Paper__Nambers} 

{Get  the  next  title  number) 
dTitlein;=  TitleListp]; 

{Convert  the  Title  string  to  an  integer  value) 
dTitle;=  TitleToInt  (dTitlein); 

{Move  to  proper  record) 

first;  {go  back  to  the  first  record  before  every  new  search} 
while  fieldbynarae(Paper_Number').asinteger  o  dTitle  do 
next; 

{Insert  the  Session) 

edit; 

Setfields  ([nil,  nil,  nil,  IvT]);  {The  remaining  fields  are  ignored) 
post; 

{Send  title  name) 

smid("  +fieldbyname('Title').asstring+  '<BR>'); 
end;  (for) 
close;  { the  table) 
end;  {with  Articles) 

sendhdr('3’,  '<P>A11  OTHER  Articles  were  AcceptedKcenterxBRxP>'); 

end;  {Reject  and  accept) 
else  begin  {selector  not  working) 

send('Selector  did  not  work<BR>'); 
send('Action  was '  +dAction+ 
end;  (else) 

end;  (case) 


{Send  Footer) 


{Button  to  Accept/Reject  more  Articles} 

send('<PxFORM  ACTION="../cgi-win/Choose.exe"  METHOI>="POST">’); 

sendC<CENTERxlNPUT  TYPE='^hidden"  Name="flag"  Value="r’>‘); 

send('<PxINPUT  TYPE=''submit"  Value="Accept/Reject  more  Articles"x/FORMxP>  '); 

{Button  to  move  to  Assign  Articles  to  Sessions} 

sendC<PxFORM  ACTION="../cgi-win/Assign.exe"  METHOD="POST'V); 

send(’<INPUTNAME="flag"  TYPE="hidden”  Value="l">’); 

send('<PxlNPUT  TYPE="submit"  Value- 'Now  Assign  the  Articles  to  Sessions " 
Si2e='*30"></center><;/FORM>'); 

sendhr; 

send('<PxFORM  ACTION-'.  ./cgi-win/Adminpwd.exe"  METHOI>=”POST">'); 

send('<INPUT  T  YPE='’hidden"  Name=''flag''  Valuer"  1 

send('<PxCENTERxlNPUT  TYPE="submit"  Value="Retum  to  the  System  Admin 
Options  page"x/CENl‘ERx/FORMx/BODYx/HTML>'); 
closeStdout; 

closeApp(  application ); 

end;  {with  cgiEnvDatal  do} 
end;  {FormCreate} 
end. 
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unitD_assign; 

interface 


Assign  Articles:  D_Assigii.eie 


uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 

TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

CGIDB  1:  TCGIDB; 

DataSourcel:  TDataSource; 

Query  1:  TQuery; 

Sessions:  TTable; 

Articles:  TTable; 

SessionsNumber:  TIntegerField; 

SessionsNeumonic:  TStringField; 

Query  INumber:  TIntegerField; 

QueiylNeumonic:  TStringField; 
procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations  } 
public 

{  Public  declarations } 
end; 

var 

Forml:  TForml; 

dbtitle,  dbPaperJNumber:  string; 

dflag:  string;  {valid  pr<^ram  call} 

implementation 

{$R*.DFM} 

procedure  TForml. FonnCreate(Sender:  TObject); 
begin 


with  CGIEnvDatal  do  begin 


373 


webSiteINIFilenaine;=paramstr(  1 ); 

application.onException:==cgiErrorHandler; 

application-processMessages; 

createStdout; 

sendPrologue; 

send  ('<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  ('</HEADxBODY  bgcolor=FFFFFF>’); 

{]>etermine  whether  flag  is  valid} 

dflag:=  getsmallfield  ('flag'); 
if  (dflag  =  T)  then  begin  {flag  is  set} 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 

{Build  Form} 

send('<PxFORM  ACTION="../cgi-win/Assign2.exe"  METHOI>"GET’'>'); 


{Puli  Sessions  from  SESSION  Table } 
with  Queiyl  do  begin 
close; 
sqlclear; 

sql.add('Select  *  FROM  Session '); 
open; 

{Move  records  from  query  result  to  Session  Pull-down  menu} 

Sessions.open; 

Sessions.first; 

send('<PxB>Assign  the  following  Titles  to  Session;  </BxSELECT 
NAME="Session">'); 

while  not  Sessions.EOF  do  begin 

send('<OPTION> '  +Sessions.fieldByName('Neumonic').  Asstring+  "); 
sessions.nexU 

end;  (for  all  records  in  the  query  result} 

send(’</SELECTxP>'); 


end;  {withqueryl} 
with  articles  do  begin 
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open; 

first; 

While  not  Articles.EOF  do  begin 

dbtitle“fieldbynaine(Title').asstring; 
dbPaper_Nnmber:=  fieldbyname(Paper_Number’).asstring; 
send  (’<INPUT  TYPE='’checkbox"  NAME="Title"  Value="’  +dbPaper_Number+  ’">  ’ 
+dbtitle+’<BR>'); 
next; 

end;  {whflenotEOF} 
close; 

end;  {with  articles  do} 

send('<P><CENTER><INPUT  TYPE-'submit"  Value="Assign  the  selected  articles  to  the 
specified  Session"xP>  "); 

sendC<INPUT  TYPE="reset"  VALUE="Reset  values"x/CENTER><FORM>’); 
sendhr; 

send('<PxFORM  ACTION="../cgi-win/Admmpwd.exe"  METHOI>="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
send('<PxCENTERxlNPUT  TYPE-'submit"  Value="Retum  to  the  System  Admin 
Options  page’'><CENTER></FORM>'); 
send  C</BODYx/HTMl>'); 
closeStdout; 
closeApp(  application ); 

end  (flag  is  set} 

else  begin  {flag  **incorrect**} 

send  C<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers<vH2x/center>’); 
sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2xycenter>'); 

send  (’<P>Please  ensure  that  you  are  authorized  to  access  this  informatiotL'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again.</A>'); 

send  (’<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 
send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 
send  ('prosecution  for  your  actions.<BR>'); 


send  ('<PxhrxPxIMG  SRC="../prototype/asil2b0.gif "  align=left  aJt="Asilomar  fecility">'); 

send  CRetum  to  the  <A  HREF="http://131.120.20.70Andex.html">Asilomar'); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  ('</BODYx/HTM]>'); 

closeStdout; 

closeApp(  application ); 
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end;  {flag  **incorrect**} 
end;  {with  cgiEnvDatal  do} 
end;  {FonnCreate} 


end.  {Application} 


unit  Assign_2; 
interface 


Order  Articles;  Assign2.exe 


uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 

Forms,  Dialogs,  Cgidb,  Cgi,  DB,  DBTables; 

type 

TForml  =  class(TForm) 

Articles;  TTable; 

DataSoufcel;  TDataSource; 

CGIEnvDatal;  TCGIEnvData; 

CGIDBl;  TCGEIB; 

procedure  formcreate(Sender;  TObject); 
private 

{ Private  declarations } 
public 

{ Public  declarations } 
end; 

var 

Forml;  TForml; 

i,  j,  dTitle;  integer; 

dsession ;  string; 
dTitlein,  dTitlestr;  string; 
dString,  AssignString;  string; 
dnum;  string; 

Titlelist ;  TStringList; 

function  TitleToInt  (  S;  string)  ;integer; 

implementation 

{$R  *.DFM} 

^  9l::fe  :)e:)e  4c  :ie  :(c4Ea|c:|e  :|c4c  4c  :|c  :ie  4c:ie  He  He ^  3lc  4e  a)c  4c  9}c  :|c  :(e  :fc  9ic4e  ^  I 

function  TitleToInt  (  S;  string)  ;integer; 

{This  function  is  necessary  because  the  string  value  of  dTitle  has  several  spaces  in 
it  and  the  strtoint  function  cannot  handle  the  conversion  properly} 
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var 

temp:  string;  {tmporary  variable  to  build  new  string  into} 
j :  integer;  {Counting  Variable  to  keep  track  of  how  many  characters  are  in  the 
number} 

begin 

{set  the  counter  to  zero} 

j:=0; 

{count  the  characters} 
repeat 

until  S0+1]  =  ”; 

{Copy  the  valid  number  characters  over  to  temp} 

temp  :=  Copy(S,  1,  j); 

{Convert  the  temp  string  to  an  integer  value} 

TitleToInt  :=  strtoint  (temp); 


end;  {TitleToInt} 

^  :|e  9|e:jeit:9it4;  9^  jfe  4c3ic:icaic  4c  ah  j 


procedure  TForml.formcreate(Sender:  TObject); 
begin 

with  CGIEnvDatal  do  begin 


webSiteINFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.  processMessages; 

createStdout; 

sendPrologue; 


send  ('<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  ('<yHEADxBODY  bgcolor=FFFFFF>'); 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 


{Get  query  strii^  from  Assign.exe} 

Titlelist-  TStringlist-create;  {list  of  titles  to  assign  to  the  session} 
AssignString:=  CGIQueryString^; 
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j:=  0;  {The  counter  for  the  individual  strings  within  the  QueryString} 


for  i  :=  8  to  Length(AssignString)  do  {The  counter  for  going  through  the  AssignString  - 
eight  is  the  first  valuable  character  (the  banning  of  the  Session  Neumonic)  } 

if  AssignString[i]  o  then  begin  {the  character  is  valuable} 
dStringU]  :=  AssignStringp]; 

end  {if  AssignString[i]  o  then} 

else  begin  {The  &  signifies  the  end  of  the  string) 

TitleList.add  (dString); 

dString;= '  {Blank  out  the  old  values) 

j  :=0;  {reset  the  string  counter) 

i:=  i+5;  {Skip  over  the  text  "title="} 

end;  {else) 

TitleListadd  (dString);  {This  is  to  put  the  last  string  into  the  string  list  It  is 
necessary  because  there  is  no  &  at  the  end) 

{Place  the  Session  Neumonic  into  each  Paper_Number  passed) 

{The  first  item  in  the  Title  List  is  the  Session  Neumonic) 
dSession:=  TitleList[0]; 

{Send  confirmation} 

send  ('<P>The  following  Articles  were  placed  in  Session  <B>'  +dSession+  '</B>. '); 
send  (Please  enter  the  order  number  in  Ae  box  next  to  the  Title.<BRxB>Note:</B>  Ensure 
that  a  niunber  is  entered.  The '); 

send  (’Order  number  will  <B>always</B>  be  updated  with  this  entry. '); 
send  (If  it  is  left  blank,  the  order  number  will  be  blank.  <P>'); 

{Start  the  FORM  that  will  assign  the  order  number  within  the  session} 
sendC<PxFORM  ACTION="../cgi-win/Assign3.exe"  METHOD="GET">'); 
send('<INPUT  TYPE- ’hidden"  Name="Sess"  Value- "  +dSession+ 


{The  rest  of  the  items  are  Paper_Numbers} 
with  Articles  do  begin 

open;  {Prepare  the  Table  for  use) 
for  i:=  1  to  TitleList.count-1  do  begin 

{Get  the  next  title  number} 
dTitlein:=  TitleList[i]; 
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{Convert  the  Title  string  to  an  integer  value} 
dTitle:=  TitleToInt  (dTitlein); 

{Move  to  proper  record} 

first;  {go  back  to  the  first  record  before  every  new  search} 
while  fieldbyname(Taper_Niimbef  ).asinteger  o  dTitle  do 
next; 

{Insert  the  Session} 
edit; 

Setfields  ([nil,  nil,  nil,  nil,  nil,  dSession]);  {The  remaining  fields  are  ignored} 
post; 

{Convert  counting  variable  "i”  into  string  to  send  to  HTML  page} 

dnum:=  inttostr(i); 


{Send  title  name} 

send('<INPUT  TYPE="text’'  Name="'  +fieldbyname(Paper_Number’).asstring+ 
SIZE="2’’  VALUE="'  +dnum+  ’">  ’); 

send("  +fieldbyname('Title').asstring+  '<BR>'); 

end;  {for} 

close;  { the  table} 

end;  {with  Articles} 


sendC<PxCENTERxINPUT  TYPE="submit"  Value=" Assign  the  Articles  in  this 
Order'’x/CENTERx/FORMxP>  '); 

{Send  Footer} 
sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
send(’<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 

send('<PxCENTERxlNPUT  TYPE=''submit"  Value="Retum  to  the  System  Admin 
Options  page"xyCENTERx/FORM>'); 
send  ('</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 
end;  {with  cgiEnvDatal  do} 
end;  {FormCreate} 

end.  {Application} 
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unit  Assign_3; 
interface 


Confirmation;  Assign3.exe 


uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 

Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 

TForml  =  class(TFonn) 

CGIEnvDatal:  TCGIEnvData; 

CGIDB  1;  TCGIDB; 

DataSourcel:  TDataSource; 

Query  1:  TQuery; 

Articles;  TTable; 

procedure  FormCreate(Sender;  TObject); 
private 

{  Private  declarations } 
public 

{  Public  declarations } 
end; 

var 

Forml;  TForml; 

i,j,  dTitle;  integer; 

dsession ;  string; 
dTitlein,  dTitlestr;  string; 
dString,  AssignString;  string; 
dnum;  string; 

Titlelist ;  TStringList; 

function  TitleToInt  ( S;  string)  ;integer; 

implementation 

{$R  ♦.DFM} 

1 4c  4c  :|c  4: 4: 4c  ^  4:  %  Hi  ^  ^  ^  4c  4c  4c  ^  4c  3|c  ^  ^  4c  )|c  4e  ?ic  4c 

fimction  TitleToInt  ( S;  string)  ;integer; 

{This  function  is  necessary  because  the  string  value  of  dTitle  has  several  spaces  in 
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it  and  the  strtoint  function  cannot  handle  the  conversion  properly} 


var 

temp;  string;  {temporary  variable  to  build  new  string  into} 
j;  integer;  (Counting  Variable  to  keep  track  of  how  many  characters  are  in  the 
number} 

begin 

(set  the  counter  to  zero} 

j:=0; 

{count  the  characters} 
repeat 

until  SD+1]  =  '’; 

{Copy  the  valid  number  characters  over  to  temp} 

temp  :=  Copy(S,  l,j); 

{Convert  the  temp  string  to  an  integer  value} 

TitleToInt  :=  strtoint  (temp); 


end;  {TitleToInt} 


:ic  4: 3k  aH  4c  sit  4:  4c  4e  ^ 3k  4: 4c  4:  *  ♦  4!  He  4c  *  4: :|c  ^ 


procedure  TForml.formcreate(Sender:  TObject); 
begin 


with  CGIEnvDatal  do  begin 


webSiteINIFilename:=paramstr(  1 ); 
application.  onException;=cgiErrorHandler; 
application.  processMessages; 
createStdout; 
sendPrologue; 


send  C<HTMLXHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  ('</fffiADxBODY  bgcolor=FFFFFF>'); 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 


{Get  query  string  from  Assign.exe} 

Titlelist:=  TStringlist.create;  {list  of  titles  to  assign  to  the  session} 
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Assignstring”  CGIQueryString^; 
dString:= '  {Initialize  as  Blank } 

j:=  1;  {The  counter  for  the  individual  strings  within  the  Query  String} 

for  i  :=  6  to  Length(AssignString)  do  {The  counter  for  going  through  the  AssignString 
eight  is  the  first  valuable  character  (the  beginning  of  the  Session  Neumonic)  } 

if  (AssignStringp]  o  '&')  and  (AssignStringp]  o  -')  then  begin  {the  character  is 
valuable} 

dStringO]  :=  AssignString[i]; 

end  {if  AssignString[i]  o  *&*  then} 
else  begin  {The  &  signifies  the  end  of  the  string} 

TitleList.add  (dString); 

dString" '  {Blank  out  the  old  values} 

j  :=1 ;  {reset  the  string  counter} 

end;  {else} 

TitleListadd  (dString);  {This  is  to  put  the  last  string  into  the  string  list  It  is 
necessary  because  there  is  no  &  at  the  end} 


{Place  the  Session  Neumonic  into  each  Paper_Number  passed} 
{Note:  The  string  list  consists  of  the  following  components  - 


[0]  session  # 

[1]  first  paper-number 

[2]  first  paper  OrderInSession 

[3]  second  paper-number 

[4]  second  paper  OrderInSession 


This  is  important  to  understand  when  interpreting  the  "for"  loop!} 

{The  first  item  in  the  Title  List  is  the  Session  Neumonic} 

dSession:=  TitleList[0]; 

{Send  confirmation} 

send  ('<P>The  following  Articles  have  been  placed  in  Session  <B>'  +dSession+  '</B>  in  the 
order  indicated.  The  Session  ’); 

send  ('and  the  Orders  may  be  changed  at  any  time  by  repeating  the  process  of  Assigning  an 
Article  to  a  Session.<P>'); 
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send  ('<iM-e>Order  Title<prexBR>'); 

/ 

{The  rest  of  the  items  are  (Paper_Number  and  OrderlnSession)  pairs} 
with  Articles  do  begin 

open;  {Prepare  the  Table  for  use} 
for  i~  1  to  TitleList.count-1  do  begin 

{Get  the  next  Paper_Number} 
dTitlein:=  TitleList[i]; 

{Convert  the  Paper_Number  string  to  an  integer  value} 
dTitle:=  TitleToInt  (dTitlein); 

{Move  to  proper  record} 

first;  {go  back  to  the  first  record  before  every  new  search} 

while  fieldbyname(Paper_Number').asinteger  o  dTitle  do 
next; 


{********  Increment  ”i"  to  get  to  the  OrderlnSession  number  *********) 

i:=i+l; 

{Insert  the  Session} 

edit; 

Setfields  ([nil,  nil,  nil,  nil,  nil,  dSession,  TitleListp]]);  {The  remaining  fields  are 
ignored} 

post; 

{Send  title  name} 

sendC  +TitleList[i]+ '  '  +fieldbyname('Title').asstring+  ’<BR>'); 
end;  {for} 
close;  { the  table} 
end;  {with  Articles} 

send('<PxFORM  ACTION="../cgi-win/Assign.exe''  METHOI>="POST">'); 
send('<INPUT  TYPE="hidden''  Name="flag”  Value="l">'); 
send(’<PxCENTERxINPUT  TYPE- 'submit"  Value=" Assign  more 
Articles"x/CENTER></FORMxP>  '); 

send(’<PxFORM  ACTION="../cgi-win/Times.exe"  METHOI>="POSr'>’); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
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send('<PxCENTERxlNPUT  TYPE- 'submit"  Value=" Assign  Presentation  Times  to 
Articles"X/CENTERxyFORMxP>  '); 

(Send  Footer} 
sendhr; 

sendC<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOI>"POST">’); 
send('<INPUT  TYPE="hidden"  Name="£lag"  Value="l">’); 
send('<PxCENTERxlNPUT  TYPE-'submit"  Value="Retum  to  the  System  Admin 
Options  page"x/CENTER><FORM>'); 
send  (’</BODYx/HTML>’); 
closeStdout; 
closeApp(  application ); 

end;  {with  cgiEnvDatal  do} 
end;  {FormCreate} 
end.  {Application} 
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unitTimel; 

interface 


Choose  Session;  Timel.exe 


uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 

TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

CGIDBl:  TCGIDB; 

DataSourcel:  TDataSource; 

Sessions:  TTable; 

Query  1:  TQuery; 

procedure  FonnCreate(Sender:  TObject); 
procedure  CGIDB  lSendin^otField(currentRecord:  TDataset; 
var  s;  OpenString); 
fMivate 

{  Private  declarations } 
public 

{ Public  declarations } 
end; 

var 

Forml:  TForml; 
dflag:  string; 

implementation 

{$R  *.DFM} 

procedure  TFormI.FormCreate(Sender;  TObject); 
begin 

with  CGIEnvDatal  do  begin 

{Standard  Header) 
webSiteINIFilename;=paramstr(  1 ); 
application.onException:=cgiErrorHandler; 
application.  processMessages; 

createStdout; 
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sendPrologue; 

send  (’<HTMLxHEAD>'); 

SendTitleCAsilomar  Signals,  Systems,  and  Computers'); 
send  ('</HEADxBODY  bgcolor=FFFFFF>'); 


{Determine  whether  flag  is  valid} 
dflag:=  getsmallfield  ('flag'); 
if  (dflag  =  '1 ')  then  begin  {flag  is  set} 

send('<centerxH2>Asilomar  Conference  System  Administration<;/H2x;/center>’); 
sendhr; 


{send  instruction;} 

send('<center>These  are  the  current  Session  Neumonics.<br>'); 

send(To  enter  Presentation  Times  for  Articles  within  a  Session,  simply  click  on  the  Session 
Neumomc.<BR>'); 


{Retrieve  current  Session  Information} 

with  Queryl  do  begin 

close; 
sql.  clear; 

sql.add('Select*FROM  Session '); 
open; 

if  recordcount  >  0  then  begin 
Sessions.  Open; 

CGIDB 1  .DrawT  able; 
send('</center>'); 

Sessions.Close; 

end  {if  recordcount  >  0} 

else 

sendhdr  ('2’,'There  are  no  Sessions  in  the  Database!'); 
end;  {with  Queryl} 


{Standard  Footer} 
sendhr; 
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send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden’'  Name='’flag"  Value="l">'); 
send(’<PxCENTERxINPlJT  TYPE=”submit"  Value=”Retum  to  the  System  Admin 
Options  page"x/CENTERx/FORM>’); 
end  {flag  is  set} 

else  begin  (flag  **iiicorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2xycenter>'); 
sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again.</A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 
send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 
send  ('prosecution  for  your  actions.  <BR>'); 


send  ('<PxhrxPxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">'); 

send  CRetum  to  the  <A  HREF="http://131.120.20.70/Index.html">Asilomar'); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application  ); 

end;  {flag  **incorrect**} 

send  ('</BODYx/HTMD>'); 
closeStdout; 
closeApp(  application ); 
end;  {with  CGIEnvDatal} 


end;  {FormCreate} 


procediire  TForml.CGIDBlSendingHotField(currentRecord;  TDataset; 

var  s:  OpenString); 
begin 

{Hotlink  for  single  session  edit} 

s:-<A  HREF="../cgi-win/Times2.exe?'+  currentrecord.fieldbyName('Number’).AsString  +  '">' 
+  currentrecord.FieldbyName('Neumonic').AsString  +  '</A>'; 

end; 
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unit  Times_2; 
interface 


Assign  Times;  Tinies2,exe 


uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DB,  DBTables; 

type 

TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

Sessions:  TTable; 

CGIEnvDatal:  TCGBEnvData; 

CGIE®1:  TCGIDB; 

Articles:  TTable; 

procedure  FormGreate(Sender;  TObject); 
private 

{  Private  declarations } 
public 

{ Public  declarations } 
end; 

var 

Forml:  TForml; 

ArticlesInSessionList;  TStrin^ist; 

OrderInSessionList;  TStringList; 

ArticlesInOrderList;  TStringList; 

nextsession:  string; 

SessionNumber, 

Session, 

dTitle, 

dbPaper_Number, 

dbtitle, 

dbOrderInSession, 
dbPresentationTime:  string; 

i,hK 

order, 

dTitleiirt  :integer, 
implementation 
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{$R  *.DFM} 

procedure  TForml.FormCreate(Sender:  TObject); 
begin 

with  CGEEnvDatal  do  begin 

webSiteINIFilename:=paranistr(  1 ); 

application.onException;=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 

{Standard  Header} 
send  (’<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  ('</HEADxBODY  bgcoIoi=FFFFFF>’); 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 


(Find  Session  to  edit} 

{ Get  field  from  search  page  } 

SessionNumber:=  cgiQueryString^; 

(Find  Number  in  SESSIONS  Table} 

with  Sessions  do  begin 

{Prepare  the  table} 

open; 

first; 

{find  the  correct  Session} 

while  SessionNumber  o  fieldbyname('Number').asstrmg  do 
next; 


Session”  fieldbyname('Neumonic').asstring; 

sendCHere  are  the  Articles  in  Session  <B>'  +Session+  '</B>  for  which  you  wanted  to  Assign 
Presentation  Times. '); 

sendCFill  in  the  Times  and  "Submit"  them.<BR>'); 
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sendC<PxFORM  ACTI0N="../cgi-win/Times3.exe"  METHOD="GET">’); 
send('<INPUT  TYPE="hidden"  Name="Sess"  Value="'  +Sessioii+ 


end;  {with  Sessions} 


{Find  the  Articles  in  this  session} 

{Create  the  stringlists} 
ArticlesInSessionList:=  TStringlist.  create; 
OrderlnSessionList”  TStringlistcreate; 
ArticlesInOrderList:=  TStringlist.create; 


{Clear  the  stringlists} 
ArticlesInSessionList.  clear; 
OrderInSessionList.  clear; 
ArticlesInOrderList.clear; 


{Get  the  Article  Record  } 
with  Articles  do  begin 

{Prepare  Article  Table} 

Articles,  open; 

Articles.first;  {Start  at  the  beginning  of  the  ARTICLE  Table} 


{Check  every  article  against  the  session  neumonic.  Matches  go  on  InSession  stringlist} 
while  not  Articles.EOF  do  begin 

if  Articles.fieldByName  ('Session').asstring  =  Session  then  begin 

{Put  the  paper_nuniber  on  a  list  and  the  OrderInSession  on  another  -  they 
must  be  symetrical} 

ArticlesInSessionList.add(fieldbyname('Paper_Number’).asstring); 
OrderInSessionList.add(fieldbynaine(’OrderInSession').asstring); 
end;  {if  then} 

Articles.next; 

end;  {while  not  articles  EOF} 
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end;  {with  Articles} 


if  ArticlesInSessionList.count  >  0  then  begin 

{Put  Articles  in  order  in  the  InOrder  stringlist) 

{First  initialize  the  list  by  placing  a  dummy  value  in  the  string  for  each  value  that 
will  be  added} 

for  j:-  0  to  ArticlesInSessionList. count  do  {the  [0]  place  vdll  not  be  used  but  must  be 
included  to  get  the  order  numbers  to  start  at  {!]} 

ArticlesInOrderListadd  ('an  empty  field  to  hold  the  place'); 

{Now  go  through  the  list  of  articles  and  put  them  in  the  "ArticlesInOrderList"  in 
order  (as  saved  in  the  "OrderInSessionList)} 

for  j:=  0  to  ArticlesInSessionList.count-l  do  be^ 

{get  the  OrderInSessionLbt  value  and  make  it  an  integer} 

Order—  strtoint(OrderInSessionList|j]); 

{assign  the  article  title  to  the  InOrderList  in  its  place} 

ArticlesInOrderList[Order]:=  ArticlesInSessionList[j]; 
end; 

{Go  through  the  Articles  in  OrderList  and  retrieve  information  and  print  it  out} 
forj:=  1  to  ArticlesInOrderList.count-1  do  begin 

{ Move  to  proper  record  in  ARTICLE  Table} 

Articles.open; 

Articles,  first; 

dTitle:=  ArticlesInOrderList[j]; 

{make  ArticleslnOrderListO]  an  integer  for  comparisom} 
dTitleint”  strtoint(dTitle); 

while  Articles.fieldbyName(Paper_Number').asinteger  o  dTitleint  do 
Articles.next; 


{ Retrieve  record } 

with  Articles  do  begin 

dbPaper_Number:=  fieldByName  (Paper_Number').asstring; 
dbtitle;=  fieldByName  ('title').asstring; 
dbOrderInSession:=  fieldByName  ('OrderlnSession').asstring; 
dbPresentationTime”  fieldByName  ('PresentationTime').asstring; 


393 


{Send  Session  edit  FORM  to  HTML  page} 
send("  +  dbOrderInSession+ '  '); 

send('<INPUT  TYPE=’’text"  Name=="’  +dbPaper_Numberf  SIZE="10"  Value='" 
+dbPresentationTime+ 

sendC '  +dbtitle+  '<BR>'); 


end;  {with  Articles} 

end;  {for  i=  1  to  articleinOrderList} 

send(*<PxCENTERxINPUT  TYPE="submit"  Value="Submit  Presentation  Times'V); 
sendC<INPUT  TYPE="reset"  VALUE="Reset  to  Original 
Session"x/CENTERx/FORM>'); 

end;  {if  count  >  0} 


{Standard  Footer} 
sendhr; 

send('<PxFORM  ACTION=’'../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
send('<PxCENTERxINPUT  TYPE=''submit"  Value=''Retum  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
send  ('</BODYx/HTML>'); 
closeStdout; 
closeApp(  application  ); 

end;  {with  cgiEnvDatal  do} 

end;  {FormCreate} 
end. 
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unit  Times_3; 
interface 


Confirmation;  Times3.exe 


uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 

Forms,  Dialogs,  DB,  DBTables,  Cgidb,  Cgj; 

type 

TForml  =  class(TForm) 

CGBEnvDatal;  TCGDEnvData; 

CGIDBl:  TCGIDB; 

DataSourcel;  TDataSource; 

Articles:  liable; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations  } 
public 

{ Public  declarations } 
end; 

var 

Forml;  TForml; 

i,j,  dlitle:  integer; 

dsession ;  string; 
dlitlein,  dlitlestr:  string; 
dString,  AssignString:  string; 
dnum;  string; 

Titlelist ;  TStringList; 

function  TitleToInt  ( S;  string)  linteger, 

implementation 

{$R  ♦.DFM} 

^  aje 9|c  4c  ^  4c  :ic  :fe  4;  aK  He  9|c a|e  4e  9}:  9|e  4: 9te  4: 4c  ♦  a|c  %  %  He 

function  TitleToInt  (  S:  string)  :integer; 

{This  function  is  necessary  because  the  string  value  of  dTitle  has  several  spaces  in 
it  and  the  strtoint  function  cannot  handle  the  conversion  properly} 
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var 

temp:  string;  {temporary  variable  to  build  new  string  into} 
j  ;  integer;  {Counting  Variable  to  keep  track  of  how  many  characters  are  in  the 
number} 

begin 

{set  the  counter  to  zero} 

j;=0; 

{count  the  characters} 
repeat 

until  Slj+1]  =  ”; 

{Copy  the  valid  number  characters  over  to  temp} 

temp  :=  Copy(S,  IJ); 

{Convert  the  temp  string  to  an  integer  value} 

TitleToInt  :=  strtoint  (temp); 


end;  {TitleToInt} 


procedure  TForml.formcreate(Sender:  TObject); 
begin 

with  CGEEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 

send  ('<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  (’</HEADxBODY  bgcolor=FFFFFF>'); 

sendC<centerxH2>Asilomar  Conference  System  Administration</H2></center>'); 
sendhr; 

{Get  query  string  from  Time2.exe} 

Titlelist:=  TStringlist.create;  {list  of  titles  to  assign  to  the  session} 
AssignString:=  CGIQueryString^; 
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dString;= '  {Initialize  as  Blank } 

j;=  1 ;  (The  counter  for  the  individnal  strings  within  the  Query  String} 

for  i  ~  6  to  Length(AssignString)  do  {The  counter  for  going  through  the  AssignString  - 
eight  is  the  first  valuable  character  (the  beginning  of  the  Presentation  Time) } 

if  (AssignString[i]  o  *&')  and  (AssignString[i]  o  -')  then  begin  {the  character  is 
valuable} 

dStringjj]  :=  AssignString[i]; 

end  {if  AssignString[i]  o  then} 
else  begin  {The  &  signifies  the  end  of  the  string} 

TitleListadd  (dString); 

dString;= '  {Blank  out  the  old  values} 

j  :=1 ;  { reset  the  string  counter} 

end;  {else} 

TitleList.add  (dString);  {This  is  to  put  the  last  string  into  the  string  list  It  is 
necessary  because  there  is  no  &  at  the  end} 


{Place  the  Presentation  Time  into  each  Paper_Number  passed} 


{Note:  The  string  list  consists  of  the  following  components  - 

[0]  session  # 

[1]  first  paper-number 

[2]  first  paper  Presentation  Time 

[3]  second  paper-number 

[4]  second  paper  Presentation  Time 


This  is  important  to  understand  when  interpreting  the  "for"  loop!} 

{The  first  item  in  the  Title  List  is  the  Session  Neumonic} 
dSession;=  TitleList[0]; 

{Send  confirmation} 

send  ('<P>The  following  Articles  have  been  placed  in  Session  <B>'  +dSession+  ’</B>  in  the 
order  indicated.  The  Session '); 

send  ('and  the  Orders  in  the  Session  may  be  changed  at  any  time  by  repeating  the  process  of 

send  ('<A  HREF- '../cgi-win/Assign.exe"> Assigning  an  Aiticle  to  a 
Session</A>.<Pxpre>Order  Title<prexBR>'); 
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{The  rest  of  the  items  are  (Paper_Number  and  Presentation  Time)  pairs} 
with  Articles  do  begin 

open;  {Prepare  the  Table  for  use} 
for  i:=  1  to  TitleListcount-1  do  begin 

{Get  the  next  Paper_Number} 
dTitlein~  TitleList[i]; 

{Convert  the  Paper_Number  string  to  an  int^er  value} 
dTitle:=  TitleToInt  (dTitlein); 

{Move  to  proper  record} 

first;  (go  back  to  the  first  record  before  every  new  search} 
while  fieIdbyname('Paper_Niimber’).asinteger  o  dTitle  do 
next; 


{********  Increment  "i"  to  get  to  the  Presentation  Time  *********} 

{This  causes  the  "for"  loop  to  skip  every  other  element} 

i;=i+l; 

{Insert  the  Session} 
edit; 

Setfields  ([nil,  nil,  nil,  nil,  nil,  nil,  nil,  TitleList[i]]);  {The  remaining  fields  are 
ignored} 

post; 

{Send  title  name} 

send("  +TitleList[i]+ '  '  +fieldbyname(Title').asstring+  ’<BR>'); 
end;  {for} 
close;  { the  table} 
end;  {with  Articles} 

send(’<PxFORM  ACTION="../cgi-win/Times.exe"  METHOD=''POST">’); 
sendC<INPUT  TYPE="hidden"  Name="flag"  Value="l">’); 
send('<PxCENTERxINPUT  TYPE="submit"  Value=" Assign  more  Presentation 
Times"><CENTER></FORM><P>  '); 

{Send  Footer} 
sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe''  METHOD="POST">'); 
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sendC<INPUT  TYPE="hidden"  Name="flag’'  Value="  !">'); 
send('<PxCENTERxINPUT  TYPE- 'submit"  Value="Retum  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
send  ('</BODYxyHTML>’); 
closeStdout; 
closeApp(  application ); 

end;  {with  cgiEnvDatal  do} 

end;  {FormCreate} 


end. 


Selection  options:  PassWds.exe 


unitPasswds; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DB,  DBTables; 


type 

TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

CGIEnvDatal:  TCGIEnvData; 

CGIDB  1:  TCGIDB; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations } 
public 

{  Public  declarations } 
end; 

var 

Forml:  TForml; 
dUserlD:  string; 
dpwd:  string; 
dbpassword:  string; 
dflag:  string; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
begin 

with  CGIEnvDatal  do  begin 

webSiterNIFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 


createStdout; 

sendPrologue; 


400 


send  C<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  ('</IffiADxBODY  bgcolor=FFFFFF>'); 


{Determine  whether  flag  is  valid} 

dflag:=  getsmallfield  ('flag'); 
if  (dflag  =  '1  ’)  then  begin  {flag  is  set} 

send('<centerxH2>Asilomar  Conference  System  Administration</H2xycenter>'); 
sendhr; 


{Send  Instructions} 

sendhdr('3',  'System  Admin  user  passwords.'); 

send('To  change  a  System  Admin  password,  enter  the  information  below  and  "Modify  a 
System  Admin  User  Password." '); 

send('  The  new  password  must  be  entered  twice  to  ensure  validity.  To  ADD  or  DELETE  a 
User,  select  the  appropriate '); 
sendCButtons  below.'); 


send('<P><CENTERxALIGN  LEFTxFORM  ACTION="../cgi-win/Pwdmod.exe" 
METHOI>="POST">'); 

send('<INPUTNAME="flag"  TYPE="hidden"  Value="l">'); 

send('<B>User  name:  </BxINPUT  NAME="userid"  Size="20"  TYPE="text"xBR>’); 

send('<B>01d  Password:  </BxINPUT  NAME="oldpwd''  Size="20" 


TYPE="password"xBR>'); 

send('<B>New  Password:  </BxlNPUT  NAME="newpwdl "  Size="20" 

TYPE="password"xBR>'); 

send('<B>New  Password  Again:</BxINPUT  NAME="newpwd2"  Size="20" 
TYPE="password"xBRx/ALIGN  left>'); 

send('<INPUTNAME="action"  TYPE="hidden"  Value="admin">'); 
send('<PxlNPUT  TYPE="submit"  Value="Modify  System  Admin  User  Password">'); 
send('<INPUT  TYPE="reset"  Value="Clear  Values"x/FORMxBR>'); 
scndC’^br^********************'*’*' ’*'****************************)’ 


send('<PxFORM  ACTION=''../cgi-win/PwdAdd.exe"  METHOD="POST">'); 
send('<INPUT  NAME="flag"  Size="3"  TYPE="hidden"  Value="l">'); 
send('<INPUT  NAME="action"  TYPE="hidden"  Value="admin">'); 
send('<PxlNPUT  TYPE- 'submit"  Value="Add  a  new  System  Admin  User"x/FORM>'); 

send('<PxFORM  ACTION="../cgi-win/PwdDel.exe"  METHOD="POST">'); 
send('<INPUT  NAME="flag"  Size="3"  TYPE="hidden"  Value="  !">'); 
send('<INPUTNAME="action"  TYPE="hidden"  Value="admin">'); 
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send('<PxINPUT  TYPE="submit"  Value="  Delete  a  System  Admin  User 
"x/CENTERx/FORMxBR>’); 

sendhr; 

senclhdr('3’.  Reviewer  passwords.'); 

send('To  change  a  reviewer  password,  enter  the  information  below  and  "Modify  a  Reviewer 
Password." '); 

send(’  The  new  password  must  be  entered  twice  to  ensure  validity.  To  ADD  or  DELETE  a 
Reviewer,  select  the '); 

sendCappropriate  Buttons  below.'); 


send('<PxCENTERxFORM  ACTION="../cgi-win/Pwdmod.exe"  METHOD="POST">'); 
sendC<INPUT  NAME="flag"  TYPE="hidden"  Value="l">'); 
s«id('<B>Reviewer  name;  </BxINPUT  NAME="userid"  Size="20" 
TYPE="text"xBR>'); 

sendC<B>01d  Password:  </BxINPUT  NAME="oidpwd"  Size="20" 
TYPE=’'password"xBR>'); 

send('<B>New  Password;  </BxrNPUT  NAME="newpwdl "  Size="20" 
TYPE="password"xBR>’); 

send('<S>New  Password  Again;</BxINPUT  NAME— 'newpwd2"  Size="20" 
TYPE="password"xBR>'); 

send('<INPUTNAME="action"  TYPE="hidden"  Value="ieviewer">'); 
send('<PxrNPUT  TYPE="submit"  Value="Modify  Reviewer  Password">'); 
send(’<INPUT  TYPE=''reset"  Value="Clear  Values"x/FORMxBR>'); 
send(’<br>’*'**********^*************************************0i 


send(’<PxFORM  ACTION="../cgi-win/PwdAdd.exe"  METHOD="POST">'); 
send('<INPUTNAME="flag"  TYPE="hidden"  Value="l">'); 
send('<lNPUT  NAME="action"  TYPE="hidden"  Value="reviewer">'); 
send('<PxlNPUT  TYPE="submit"  Value=" Add  anew Reviewer"x/FORM>'); 

send('<PxFORM  ACTION="../cgi-win/PwdDel.exe''  METHOD="POST">'); 
send('<INPUTNAME="flag"  TYPE="hidden"  Value="l">'); 
send('<INPUTNAME="action"  TYPE="hidden"  Value="reviewer">'); 
send(’<PxlNPUT  TYPE="submit"  Value="Delete  a  Reviewer" 
Size="30"X/FORMx/CENTERxP>'); 

{Footer} 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOI>="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 

send('<PxCENTERxINPUT  TYPE="submit"  Value="Retum  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
end  {flag  is  set} 
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else  begin  {flag  **iiicorrect**} 


send  ('<centerxH2>Asilomar  Conference  on  Sigials,  Systems,  &  Computers</H2x/center>'); 
sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20,htm">try  to  login 

again.<A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 
send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 
send  ('prosecution  for  your  actions.<BR>'); 


send  ('<PxhrxPxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">'); 

send  CRetum  to  the  <A  HREF="http://13 1 . 120.20.70/Index.html">Asilomai'); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  ('</BODYx/HTMI>'); 

closeStdout; 

closeApp(  application  ); 

end;  (flag ’""•'incorrect**} 

send  ('</BODYxmML>'); 
closeStdout; 
closeApp(  application ); 
end;  (with  CGDEnvDatal} 

end;  {FormCreate} 

end. 
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unit  Pwd_mod; 
interface 


Modify  Password:  PwdMod.exe 


uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgjdb,  Cgj,  DB,  DBTables; 

type 

TForml  =  class(TForm) 

Admin:  TTable; 

Reviewer:  TTable; 

DataSourcel:  TDataSource; 

CGIEnvDatal:  TCGIEnvData; 

CGIDBI:  TCGIDB; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations } 
public 

{  Public  declarations } 
end; 

var 

Forml:  TForml; 
implementation 
{$R*.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
var 

dflag:  string; 

duserid.  sfring;  {ID  for  either  the  Admin  user  or  the  reviewer} 

doldpwd:  string; 

dnewpwdl,  dnewpwd2:  string; 

daction:  string; 

begin 

with  CGIEnvDatal  do  begin 

webSiteINIFilename;=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application-processMessages; 
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createStdout; 

sendPrologue; 

{Standard  Header} 

send  C<HTMLxHEAD>’); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  ('</HEADxBODY  bgcolor=FFFFFF>’); 

send  ('<centerxH2>Asilomar  Conference  System  Administration</H2>’); 
sendhr; 


{ Get  field  from  search  page } 
dflag:=  getsmallfield  ('flag'); 

duserid;=  getsmallfield  ('userid');  { gets  the  H)  for  either  the  Admin  user  or  the 
reviewer} 

doldpwd:=  getsmallfield  ('oldpwd'); 
dnewpwdl:=  getsmallfield  ('newpwdl'); 
dne\vpwd2;=  getsmallfield  ('newpwdl'); 
daction:=  getsmallfield  ('action'); 

{check  flag} 

if  dflag  = '  1 '  then  begin 

if  dnewpwdl  =  dnewpwdl  then  begin 

{If  action  is  admin  then  modify  admin  table,  else  modify  reviewer  Table} 
if  daction  =  'admin'  then  begin 
with  Admin  do  begin 
{Update  record  } 

{Move  to  record} 

open; 

first; 

while  (fieldbyname(UserlD').asstring  o  duserid)  and  (not  EOF)  do 
next; 

if  (fieldbyname(*UserID').asstring  =  duserid)  then  begin 
edit; 

setfields([nil,  nil,  dnewpwdl]); 

post; 

close; 


405 


sendhdr('3',  'The  System  Admin  Password  has  been  changed!'); 
end 

else  begin 

send('<P>User  not  found,  please  try  again.'); 

send('<PxCENTERxALIGN  LEFTxFORM  ACTION="../cgi-win/Pwdmod.exe" 
METHOD="POST">'); 

send('<INPUTNAME="flag"  TYPE="hidden"  Value="l">'); 
send('<B>User  name:  </BxINPUT  NAME="userid''  Size="20" 

TYPE="text"xBR>'); 

send('<B>01d  Password:  </BxINPUT  NAME="oldpwd"  Size="20'' 
TYPE="password"xBR>'); 

send('<B>New  Password:  </BxINPUT  NAME="newpwdl "  Size="20" 

TYPE="password"xBR>'); 

send('<B>New  Password  Again:<Q'BxINPUT  NAME="newpwd2"  Size="20" 
TYPE="password"xBRx/ALIGN  lefl>'); 

send('<INPUT  NAME="action"  TYPE- 'hidden"  Value="admin">'); 
send('<PxlNPlJT  TYPE-'submit"  Value="Modify  System  Admin  User  Password">'); 
send('<INPUT  TYPE="reset"  Value- 'Clear  Values"x/FORM>'); 
end; 

end;  {with  admin} 

end  {if  daction  =  admin} 

else  if  daction  =  'reviewer'  then  begin 

with  Reviewer  do  begin 

{Update  record  } 

{Move  to  record} 

open; 

first; 

while  (fieldbyname(ReviewerlD').asstring  o  duserid)  and  (not  EOF)  do 
next; 

if  (fieldbyname('ReviewerlD').asstring  =  duserid)  then  begin 
edit; 

setfields([ml,  nil,  dnewpwdl]); 

post; 

close; 

sendhdr('3'.  The  Reviewer  Password  has  been  changed!'); 
end 
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else  begin 


send('<P>Reviewer  not  found,  please  try  again.'); 

send('<PxCENTERxALIGN  LEFTxFORM  ACTION="../cgi-win/Pwdmod.exe" 
METHOD="POST">’); 

send(’<INPUT  NAME="flag"  TYPE="hidden’'  Value="l">'); 
send('<B>Reviewer  name:  </BxlNPUT  NAME="userid"  Size="20'' 

TYPE="text"xBR>'); 

sendC<B>01d  Password:  </BxlNPUT  NAME="oldpwd"  Size="20" 
TYPE="passwoTd"xBR>’); 

send('<B>New  Password:  </BxlNPUT  NAME— 'newpwdl"  Size="20" 
TYPE="password'’xBR>’); 

send('<B>New  Password  Again:</BxllSIPUT  NAME="newpwd2"  Size="20" 
TYPE="password"xBRx/ALIGN  left>’); 

send('<INPUT  NAME="action"  TYPE="hidden"  Value="reviewer''>'); 
send('<PxlNPUT  TYPE-’submit"  Value="Modify  Reviewer  Password">'); 
send('<INPUT  TYPE="reset"  Value="Clear  Values"x/FORM>'); 
end; 

end;  {with  reviewer} 
end;  {if  daction  =  reviewer} 

send('<PxFORM  ACTION="../cgi-win/Passwds.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
send(’<PxCENTERxlNPUT  TYPE="submit"  Value="Modify  more 
Passwords"x/CENTERx/FORM>'); 

end  {new  passwords  matched} 

else  begin 

{new  passwords  don't  match} 

send('<P>The  new  passwords  did  not  match,  please  try  again.'); 

send('<PxCENTERxALIGN  LEFTxFORM  ACTION="../cgi-win/Pwdmod.exe" 
METHOD="POST">’); 

send('<INPUTNAME="flag"  TYPE="hidden''  Value="l">’); 

send('<B>User  name:  <;/BxINPUT  NAME-'userid"  Size="20" 

TYPE="text"xBR>'); 

send('<B>01d  Password:  </BxINPUT  NAME="oldpwd"  Size="20" 
TYPE="password"xBR>'); 

send('<B>New  Password:  </BxlNPUT  NAME="newpwdl "  Size="20" 
TYPE="password"xBR>’); 

send('<B>New  Password  Again:</BxINPUT  NAME="newpwd2"  Size="20" 
TYPE="password'’xBRx/ALIGN  left>’); 
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settd('<INPUT  NAME- ’action"  TYPE="hidden"  Value="’  +daction+ 

if  daction  =  'admin'  then  send(’<PxINPUT  TYPE="submit"  Value="Modify  System 
Admin  Password">') 

else  send('<PxINPUT  TYPE="submit"  Value="Modify  Reviewer  Password">'); 

send('<INPUT  TYPE-'reset"  Value="Clear  Values"x/CENlERx/FORMxBR>'); 
end;  {if  then  else} 

{Standard  Footer} 
sendhr; 

send(’<PxFORM  ACTION="../cgi-win/Adminpwdexe"  METHOI>="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value^"l">’); 
sendC<PxCENTERxINPUT  TYPE="submit"  Value="Retum  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 

end  {flag  is  set} 

else  begin  {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 
sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !<;/strongx/H2x/center>); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF— '../prototype/admin20.htm  >try  to  login 

again.</A>’);  . 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is ); 
send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 
send  ('prosecution  for  your  actions.<BR>'); 


send  ('<PxhrxPxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">'); 
send  (Return  to  the  <A  HREF="http://131.120.20.70/Index.html">Asilomar’); 
send  ('Conference  On-line  Submission  Page</A>'); 

send  (’</BODYx/HTML>’); 

closeStdout; 

closeApp(  application  ); 

end;  {flag  **uicorrect**} 

send  ('</BODYx/HTML>’); 
closeStdout; 
closeApp(  application  ); 
end;  {with  CGIEiivDatal} 
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end;  {FormCreate} 
end. 
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unit  Pwd_add; 
interface 


Add  new  user/reviewer:  PwdAdd.exe 


uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgidb,  Cgi; 

type 

TForml  =  class(TForm) 

CGIEnvDatal;  TCGIEnvData; 

CGIDBl:  TCGIDB; 

DataSourcel:  TDataSource; 

Admin:  TTable; 

Reviewer  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations } 
public 

{  Public  declarations } 
end; 

var 

Forml:  TForml; 
implementation 
{$R  ♦.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
var 

dflag;  string; 
daction:  string; 

begin 

with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(l); 
application.onException:=cgiErrorHandler; 
application.  processMessages; 

createStdout; 

sendProIogue; 
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{Standard  Header} 

send  ('<HTMLxHEAD>'); 

SendTitle(’Asilomar  Signals,  Systems,  and  Computers'); 
send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

send  ('<center><H2>Asilomar  Conference  System  Admmistration</H2>’); 
sendhr; 


{ Get  field  from  search  page } 
dflag;=  getsmallfield  ('flag'); 
daction:=  getsmallfield  Caction'); 

{check  flag} 

if  dflag  =  T  then  begin 


{If  action  is  admin  then  modify  admin  table,  else  modify  reviewer  Table} 
if  daction  =  'admin'  then  begin 


send('<P>To  ADD  a  new  System  Admin  User,  please  enter  the  following.  The  password  is 
entered '); 

send(twice  to  ensure  validity); 

send('<PxCENTERxALIGN  LEFTxFORM  ACTION="../cgi-win/PwdAdd2.exe" 
METHOD='’POST">'); 

send('<INPUTNAME-"flag"  TYPE="hidden"  Value="l">'); 
send('<B>New  User  name;  </BxlNPUT  NAME="userid"  Size="20" 
TYPE="text"xBR>'); 

send('<B>Password:  </BxlNPUT  NAME=''newpwdl"  Size=’'20" 

TYPE="password"xBR>’); 

send('<B>Password  Again:</BxlNPUT  NAME="newpwd2"  Size="20" 
TYPE="password"xBR></ALIGN  left>'); 

send('<INPUT  NAME="action"  TYPE="hidden"  Value='"  +daction+  "’>'); 
send('<PxINPUT  TYPE="submit"  Value="ADD  this  New  System  Admin  User">'); 
send('<INPUT  TYPE="reset"  Value="Clear  Values"x/CENTER></FORMxBR>'); 
end  {if  daction  then} 

else  begin 

send('<P>To  ADD  a  new  Reviewer,  please  enter  the  following.  The  password  is  entered '); 
send(twice  to  ensure  validity'); 
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send(’<PxCENTERxALIGN  LEFIXFORM  ACTION="../cgi-win/PwdAdd2.exe" 
METHO]>="POST">’); 

sendC<INPUT  NAME="flag"  TYPE=”hidden"  Value="l">*); 
send('<B>New  Reviewer  name;  </BxlNPUT  NAME="userid"  Size="20" 

TYPE=''text"xBR>'); 

sendC<B>Password:  </BxlNPUT  NAME="newpwdl"  Size="20" 

TYPE="password"xBR>'); 

send('<B>Password  Again:</BxINPUT  NAME="newpwd2"  Size=''20" 
TYPE="password"xBRx/ALIGN  left>'); 

send(’<INPUT  NAME="action"  TYPE="hidden"  Value="’  +daction+ 
send('<PxINPUT  TYPE="submit"  Value="ADD  this  NewReviewer">’); 
sendC<INPUT  TYPE="reset"  Value="Clear  Values"x/CENTERx/FORMxBR>'); 
end;  {if  daction  then} 


(Standard  Footer} 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOI>="POST">'); 
send(’<INPUT  TYPE="hidden"  Name="flag"  Value="r’>'); 

send('<PxCENTERxlNPUT  TYPE- 'submit"  Value="Retum  to  the  System  Admin 
Options  page''xyCENTERx/FORM>'); 

end  {flag  is  set} 

else  begin  {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 
sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>’); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again.</A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 
send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 
send  ('prosecution  for  your  actions.<BR>'); 


send  ('<PxhrxPxIMG  SRC="../prototype/asil2b0.gif  "  align=left  alt="Asilomar  facility">'); 

send  CRetum  to  the  <A  HREF="http;//131.120.20.70/Index.html">Asilomar’); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 

end;  {flag  **incorrect**} 
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send  ('</BODY></HTML>'); 
closeStdout; 
closeApp(  application ); 
end;  {with  CGDCnvDatal) 

end;  {FormCreate} 

end. 


unit  Pwd_add2; 
interface  . 


Addition  confirmation:  PwdAdd2.exe 


uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTaWes,  Cgjdb,  Cgi; 

type 

TForml  =  class(TFonn) 

CGIEnvDatal:  TCGIEnvData; 

CGIDBl:  TCGIDB; 

Admin:  TTable; 

DataSourcel:  TDataSource; 

Reviewer:  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations } 
public 

{  Public  declarations } 
end; 

var 

Forml:  TForml; 
implementation 
{$R*.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
var 

dflag:  string; 

duserid:  string;  {ID  for  either  the  Admin  user  or  the  reviewer} 
dnewpwdl,  dnewpwd2:  string; 
daction:  string; 

begin 

with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(l); 
application.  onException:=cgiErrorHandler; 
upplication.iH’ocessMessages; 
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createStdout; 

sendPrologue; 

{Standard  Header} 

send  C<HTML><HEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

send  ('<centerxH2>Asilomar  Conference  System  Administration</H2>’); 
sendhr; 


{ Get  field  from  search  page } 

^ag:=  getsmallfield  ('flag'); 

duserid:=  getsmallfield  ('userid');  {  gets  the  H)  for  either  the  Admin  user  or  the 
reviewer) 

dnewpwdl:=  getsmallfield  ('newpwdl'); 
dnevvpwd2:=  getsmallfield  ('newpwd2'); 
daction:=  getsmallfield  ('action'); 


{check  flag) 

if  dflag  =  '1'  then  begin 

if  (dnewpwdl  =  dnewpwdZ)  and  (dnewpwdl  o")  then  begin 

{If  action  is  admin  then  modify  admin  table,  else  modify  reviewer  Table) 
if  daction  =  'admin'  then  begin 
with  Admin  do  begin 
{Append  record  ) 

open; 

AppendRecord([nil,  duserid,  dnewpwdl]); 
close; 

end;  {with  admin) 

sendhdr('3'.  The  System  Admin  User  "<B>'  +duserid+  '</B>"  has  been  added!'); 
end  {if  daction  =  admin) 

else  if  daction  =  'reviewer'  then  begin 

with  Reviewer  do  begin 
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{Append  record  } 


open; 

AppendRecord([nil,  duserid,  dnewpwdl]); 
close; 

end;  {yrith  reviewer} 

sendhdr(’3',  'The  Reviewer  "<B>'  +duserid+  '</©>"  has  been  added!'); 
end;  {if  daction  =  reviewer} 


sendC<PxFORM  ACTION=’'../cgi-win/Passwds.exe"  METHOI>="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value='’l">’); 
send('<PxCENTERxI!SIPUT  TYPE- ’submit"  Value="Modify  more 
Passwords"x/CENTERx/FORM>'); 


end  {new  passwords  matched} 
else  begin 

(new  passwords  don’t  match} 

send('<P>The  new  passwords  did  not  match,  please  try  again.'); 

send(’<P><CENTERxALIGN  LEFTxFORM  ACTION="../cgi-win/Pwdadd2.exe" 
METHOD="POST">'); 

send('<INPUT  NAME="flag"  TYPE="hidden"  Value="  !">'); 
send('<B>User  name:  <;/Bxl]SIPUT  NAME="userid"  Size="20" 

TYPE="text"><BR>’); 

send('<B>New  Password:  </BxINPUT  NAME- 'newpwd  1  ”  Size="20" 

TYPE="password"xBR>’); 

send('<B>New  Password  Again:</BxlNPUT  NAME="newpwd2"  Size="20" 
TYPE="password"xBRx/ALIGN  left>’); 

send(’<INPUT  NAME="action"  TYPE="hidden"  Value='"  +daction+  "’>’); 
if  daction  =  'admin'  then  send('<PxlNPUT  TYPE="submit"  Value="ADD  System  Admin 
User">’) 

else  send('<PxlNPUT  TYPE="submit"  Value="ADDNewReviewer">'); 

send(’<INPUT  TYPE="reset"  Value-"Clear  Values"x/CENTERx/FORMxBR>’); 
end; 

{Standard  Footer} 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD=’POST">’); 
send('<INPUT  TYPE="hidden"  Name=’’flag"  Value="l">'); 
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send('<P><CE^^IER><INPUT  TYPE="subinit''  Value- 'Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 

end  {flag  is  set} 

else  begin  {flag  **incorrect**} 

send  (’<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2><center>'); 
sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx;/H2x;/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">tiy  to  login 

again.</A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 
send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 
send  ('prosecution  for  your  actions.<BR>'); 


send  ('<PxhrxpxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">'); 

send  (Return  to  the  <A  HREF="http://13 1 . 120.20.70/Index.html">Asilomar'); 

send  OConference  On-line  Submission  P^e</A>'); 

send  ('</BODY></HTML>’); 

closeStdout; 

closeApp(  application ); 

end;  {flag  **incorrect**} 

send  ('</BODYx7HTML>'); 
closeStdout; 
closeApp(  application ); 
end;  {with  CGIEnvDatal} 

end;  {FormCreate} 

end. 
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unit  Pwd_del; 
interface 


Delete  a  user/reviewer:  PwdDeLexe 


uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgidb,  Cgi; 

type 

TForml  =  class(TForm) 

CGIEnvDatal;  TCGIEnvData; 

CGIDBl:  TCGIDB; 

DataSourcel:  TDataSource; 

Admin:  TTable; 

Reviewer:  TTable; 

procedure  FormCreate(Senden  TObject); 
private 

{  Private  declarations } 
public 

{  Public  declarations } 
end; 

var 

Forml:  TForml; 
implementation 
{$R  *.DFM} 

procedure  TForml.FormCreate(Sender:  TObject); 
var 

dflag:  string; 
daction:  string; 

begin 

with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 
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{Standard  Header} 

send  C<HTMIxHEAD>’); 

SendTitleCAsilomar  Signals,  Systems,  and  Computers’); 
send  ('</HEADxBODY  bgcoloi=FFFFFF>'); 

send  ('<centerxH2>Asilomar  Conference  System  Administration</H2>'); 
sendhr; 


{ Get  fleld  from  search  page  } 

dflag;=  getsmallfield  ('flag'); 
daction:=  getsmallfield  ('action'); 

(check  flag} 


if  dflag  =  '1'  then  begin 


(If  action  is  admin  then  modify  admin  table,  else  modify  reviewer  Table} 
if  daction  =  'admin'  then  begin 


send('<P>To  DELETE  a  System  Admin  User,  please  enter  the  following.'); 

send('<PxCElSmERxALIGN  LEFTXFORM  ACTION="../cgi-win/PwdDel2.exe" 
METHOD="POST">'); 

send('<INPUTNAME="flag"  TYPE="hidden"  Value="r'>'); 
send(’<B>User  name:  </BxINPUT  NAME="userid’'  Size="20" 

TYPE="text"xBR>'); 

send('<B>Password:  </B><INPUT  NAME- 'oldpwd''  Size="20" 

TYPE="password"xBR>'); 

send('<INPUTNAME="action"  TYPE="hidden’'  Value="’  +daction+  "’>'); 
send('<Px]NPUT  TYPE="submit"  Value="Delete  this  System  Admin  User">'); 
send(’<INPUT  TYPE="reset"  Value="Clear  Values"x/CENTERx/FORMxBR>'); 
end  {if  daction  then} 

else  begin 

send('<P>To  DELETE  a  Reviewer,  please  enter  the  following:’); 

send('<PxCENTERxALIGN  LEFTxFORM  ACTION="../cgi-win/PwdDel2.exe" 
METHOD=’'POST">'); 

send('<INPUT  NAME="flag"  TYPE="hidden"  Valuer"  l’'>'); 
send('<B>Reviewer  name:  </BxINPUT NAME-'userid"  Size="20" 

TYPE="text"xBR>’); 
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send(’<B>Password:  </BxINPUT  NAME=’’oldpwd"  Size="20" 

TYPE="password"xBR>*); 

send('<INPUT  NAME="action"  TYPE="hidden"  Value='"  +daction+ 
send(’<PxI]SIPUT  TYPE="submit"  Value="Delete  this  Reviewer">'); 
sendC<INPUT  TYPE="reset"  Value="Clear  Values"xyCENTERxyFORMxBR>’); 
end;  {if  daction  then} 

(Standard  Footer} 
sendhr; 

send('<PxFORM  ACTION="../cgi-win/Admmpwd.exe"  METHOI>=’'POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="  !">'); 
send('<PxCENTERxINPUT  TYPE- ’submit"  Value="Retum  to  the  System  Admin 
Options  page"><V'CENTERx/FORM>’); 

end  (flag  is  set} 

else  begin  {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 
sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !<ystrongx/H2x;/center>'); 

send  ('<P>Please  ensure  tihat  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../proto1ype/admin20.htm">tiy  to  login 

again.</A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 
send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 
send  ('prosecution  for  your  actions.  <BR>'); 


send  ('<PxhrxPxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">'); 

send  ('Return  to  the  <A  HREF-'http;//131.120.20.70/Index.html">Asilomar'); 

send  ('Conference  On-line  Submission  Page</A>’); 

send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  aj^lication  ); 

end;  {flag  **mcorrect**} 

send  (’</BODYx/HTMI>'); 
closeStdout; 
closeApp(  application  ); 
end;  {with  CGDEnvDatal} 

end;  {FormCreate} 
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end. 
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unit  Pwd_del2; 
interface 


Deletion  confirmation:  PwdDel2.exe 


uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DB,  DBTables; 

type 

TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

Admin:  TTable; 

Reviewer:  TTable; 

CGIEnvDatal:  TCGIEnvData; 

CGIDBl:  TCGIDB; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations } 
public 

{  Public  declarations } 
end; 

var 

Foiml:  TForml; 
implementation 
{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
var 

dfiag:  string; 

duserid:  string;  {ID  for  either  the  Admin  user  or  the  reviewer} 
doldpwd:  string; 
daction:  string; 

begin 

with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 
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createStdout; 

sendPrologue; 

{Standard  Header} 

send  ('<HTMIXHEAD>’); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  ('</HEADxBODY  bgcolor=FFFFFF>’); 

send  ('<centerxH2>Asilomar  Conference  System  Admmistration</H2>’); 
sendhr; 


{  Get  Held  from  search  page } 

(Mag—  getsmallfield  ('flag'); 

duserid:=  getsmallfield  ('userid');  {  gets  the  H)  for  either  the  Admin  user  or  the 
reviewer} 

doldpwd:=  getsmallfield  ('oldpwd'); 
daction:=  getsmallfield  ('action'); 


{check  flag} 

if  dflag  =  T  then  begin 

{If  action  is  admin  then  modify  admin  table,  else  modify  reviewer  Table} 


if  daction  =  'admin'  then  begin 


with  Admin  do  begin 
{Update  record  } 

{Move  to  record} 

open; 

first; 

while  (fieldbyname(’UserlD').asstring  o  duserid)  and  (not  EOF)  do 
next; 

if  not  EOF  then  begin 
edit; 
delete; 
close; 

sendhdr('3'.  The  System  Admin  User  "<i>'  +duserid+  '</i>"  has  been  Deleted!'); 
end 
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else  begin 


send('<P>The  User  +duserid+  '</B>"  was  not  found,  please  try  again.'); 
send('<PxCENTER><ALIGN  LEFTxFORM  ACTION="../cgi-win/Pwddel.€xe" 
METHOD="POST">'); 

send(’<INPUT  NAME="flag"  TYPE="hidden"  Value="l">'); 
send('<B>User  name:  </BxlNPUT  NAME="userid"  Size="20" 

TYPE="text"><BR>’); 

send('<B>01d  Password:  </BxlNPUT  NAME="oldpwd"  Size="20" 
TYPE="password"xBR>'); 

send('<INPUT  NAME="action"  TYPE="hidden"  Value='"  +daction+ 
send('<PxI]SIPUT  TYPE="submit"  Value="Delete  this  System  Admin  User">’); 
send('<IlSIPUT  TYPE="reset"  Value="Clear  Values"x/CENTERx/FORM>’); 
end;  {else} 

end;  {with  admin} 

end  {if  daction  =  admin} 

else  if  daction  =  'reviewer'  then  begin 
with  Reviewer  do  begin 

{Delete  record } 

{Move  to  record} 

open; 

first; 

while  (fieldbyname('ReviewerlD').asstring  o  duserid)  and  (not  EOF)  do 
next; 

if  not  EOF  then  begin 
edit; 
delete; 
close; 

sendhdr('3',  'The  Reviewer  "<i>'  +duserid+  '</i>"  has  been  Deleted!'); 
end 

else  begin 

send('<P>The  Reviewer  "<B>'  +duserid+  '</B>"  was  not  foxmd.  please  tiy  again.'); 
send(’<PxCENTERxALIGN  LEFTXFORM  ACTION="../cgi-win/Pwddel.exe" 
METHOD-"POST''>'); 

send('<INPUT  NAME="flag"  TYPE="hidden''  Value="l">'); 
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<BxINPUT  NAME="userid"  Size="20" 


send('<B>User  name: 

TYPE="text"xBR>'); 

send('<B>01d  Password:  <;/BxINPUT  NAME="oldpwd"  Size="20" 

TYPE="password"xBR>’); 

sendC<INPUTNAME="action"  TYPE="hidden"  Value=’"  +daction+ 
sendC<PxlNPUT  TYPE="submit"  Value="Delete  this  Reviewer">'); 
send(’<INPUT  TYPE="reset”  Value=”Clear  Values"x/CENTERx/FORM>'); 
end;  {else} 

end;  {with  reviewer} 
end;  {if  daction  =  reviewer} 


send('<PxFORM  ACTION="../cgi-win/Passwds.exe"  METHOD="POST">’); 
sendC<INPUT  TYPE="hidden"  Name="flag"  Value="  !">'); 
sendC<PxCENTERxINPUT  TYPE="submit"  Value=’’Modify  more 
Passwords''></CENTER></FORM>'); 

{Standard  Footer} 
sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">’); 

send('<PxCENTERxINPUT  TYPE="submit"  Value="Retum  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 

end  {flag  is  set} 

else  begin  {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 
sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx:/H2></center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF- '../prototype/admin20.htm">try  to  login 

again.</A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is’); 
send  (’maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal  ’); 
send  (’prosecution  for  your  actions.<BR>’); 

send  ('<PxhrxPxIMG  SRC="../proto1ype/asil2b0.gif "  align=left  alt="Asilomar  facility">’); 

send  (Return  to  the  <A  HREF="http://13 1 . 120.20.70/Index.html">Asilomar’); 

send  (’Conference  On-line  Submission  Page</A>'); 

send  (’</BODYx/HTML>’); 

closeStdout; 
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cIoseApp(  application ); 

end;  {flag  **incorrect**} 

send  ('</BODYXHTML>’); 
closeStdout; 
closeApp(  application  ); 
end;  {with  CGBEnvDatal} 

end;  {FormCreate} 

end. 
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This  single  program:  P_Sess.exe 


unit  Prsess; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DBTables,  DB; 

type 

TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

Query  1:  TQuery; 

Sessions:  TTable; 

CGIEnvDatal:  TCGIEnvData; 

CGIDB  1:  TCGIDB; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations } 
public 

{ Public  declarations } 
end; 

var 

Forml:  TForml; 
implementation 
{$R*.DFM} 

procedure  TForml. FoimCreate(Sender:  TObject); 
begin 


with  CGIEnvDatal  do  begin 

webSiteINlFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

applicatioaprocessMessages; 

createStdout; 

sendPrologue; 

send  ('<HTMLxHEAD>’); 
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SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  ('</HDEADxBODY  bgcolor=FFFFFF>'); 

end; 

with  cgiEnvDatal  do  begin 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 

send('<Pxh3>These  are  the  current  Sessions  Scheduled  in  the 
database;</h3xPx:center>'); 

With  Sessions  do  begin 

open; 

first; 

While  not  EOF  do  begin 

send  ("  +fieldbyname  ('neumonic’).asstring^- '  <BR>'); 
next; 

end;  {while} 
close; 

send  ('</centerxP>'); 
end;  {with  Sessions} 

sendhr; 

send('<PxFORM  ACTION- '../cgi-win/Adminpwd.exe"  METH01>='T0ST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">’); 

send(’<PxCENTERxlNPUT  TYPE="submit"  Value='’Retum  to  the  System  Admin 
Options  page"x/CENTER></FORM>'); 
send  (’</BODY></HTML>'); 
closeStdout; 
closeApp(  application  ); 

end;  {with  cgiEnvDatal  do} 

end;  {FormCreate} 

end. 
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Select  Article  or  All;  P  Artl.exe 


unit  Prartl; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 

TForml  =  class(TForm) 

CGEEnvDatal:  TCGIEnvData; 

CGIDBl:  TCGIDB; 

Query  1:  TQuery; 

DataSourcel;  TDataSource; 

Articles;  TTable; 

QueiylPaper_Number:  TIntegerField; 

QuerylTitle:  TStringfield; 

ArticlesPaper  Number:  TIntegerField; 

ArticIesTitle:  TStrin^ield; 

Articlesinvited;  TStringField; 

ArticlesAccepted:  TStringField; 

ArticlesContactAuthorNumber:  TIntegerField; 

ArticlesSession:  TStringField; 

ArticlesKeywordl:  TStringField; 

ArticlesKeyvvord2:  TStringField; 

ArticlesKeyword3:  TStrinj^ield; 

ArticlesAbstract:  TMemoField; 

ArticlesContactOrder:  TStringField; 

ArticlesFName2:  TStringField; 

ArticlesLName2;  TStringField; 

Articleslnitial2;  TStringField; 

ArticlesInstitution2:  TStrin^ield; 

ATticlesOrder2;  TStrin^ield; 

ArticlesFNameS:  TStringField; 

ArticlesLNameS:  TStrin^ield; 

Articleslnitial3:  TStrin^ield; 

ArticlesInstitutionS:  TStrin^ield; 

ArticlesOrderS:  TStringField; 

ArticlesFName4;  TStringField; 

ArticlesLName4:  TStringField; 

ArticlesInitiaM:  TStringField; 

ArticlesInstitution4;  TStringField; 

ArticlesOrder4:  TStringField; 
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ArticlesFNameS;  TStringField; 

ArticlesLNameS;  TStringField; 

ArticlesInitialS:  TStringField; 

ArticlesInstitutionS;  TStringField; 

ArticlesOrderS;  TStringField; 

AiticlesFName6:  TStrin^ield; 

ArticlesLName6:  TStrin^ield; 

Articleslnitial6:  TStringField; 

ArticlesInstitution6;  TStringField; 

ArticlesC)rder6:  TStringField; 
procedure  FormCreate(Sender;  TObject); 
procedure  CGIDBlSendingHotField(currentRecord:  TDataset; 
var  s:  OpenString); 
private 

{ Private  declarations } 
public 

{  Public  declarations } 
end; 

var 

Forml:  TForml; 
implementation 
{$R*.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
begin 


with  CGIEnvDatal  do  begin 

webSiteINIFilename;=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 

send  C<HTMLxHEAD>’); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  (’</HEADxBODY  bgcolor=FFFFFF>’); 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 
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with  Queryl  do  begin 


prepare;  { Optimizes  query } 

close; 

sql.clear; 

sql.add('Select  *  FROM  Submissi'); 
sql.add(  ’Order  by  Title ' ); 
open; 

{Display  the  results  of  the  Query} 

send('<P>Choose  the  Article  you  would  like  to  see  below.  The  information  will  be 
displayed  to  the  screen '); 

send('in  a  format  that  most  Browsers  will  print  directly.  You  may  also  <A  HREF="../cgi- 
win/P_artl2.exe">Print '); 

send('Information  for  ALL  Articles  to  a  File</A>.<PxCENTERxBR>'); 

CGIDBl .drawtable;  {display  all  titles) 
send  ('</centerxP>’); 
end;  {with Queryl} 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  Value="l">'); 
send(’<PxCENTERxlNPLrT  TYPE="submit"  Value="Retum  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
send  ('</BODYx/HTML>’); 
closeStdout; 
closeApp(  application ); 

end;  {with  cgiEnvDatal  do} 

end;  {FormCreate} 

procedure  TForml.CGIDBlSendin^otField(currentRecord:  TDataset; 

var  s:  OpenString); 
begin 

s~'<A  HREF="../cgi-win/P_Artl2.exe?’+ 
currentrecord.fieldbyName(Paper_Number').  AsString  + 

+  currentrecord.FieldbyName('Title').  AsString  +  '<^A>'; 

end; 

end. 
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Print  Article;  P  ArtI2.exe 


unit  Prartl2; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  GraphicSj  Controls, 
Foims,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 

TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

CGIDBl;  TCGIDB; 

Query! :  TQueiy; 

DataSourcel:  TDataSource; 

Articles;  TTable; 

Authors;  TTable; 

AuthorsANumber;  TIntegerField; 

AuthorsFName;  TStringField; 

AuthorsLName:  TStrin^ield; 

Authorslnitial;  TStringField; 

AuthorsHonorific;  TStringField; 

Authorslnstitution;  TStringField; 

AuthorsDepartment;  TStringField; 

AuthorsMailstop;  TStringField; 

AuthorsAddressStreet:  TStringField; 

AuthorsAddress_City;  TStringField; 

AuthorsAddress_State;  TStringField; 

AuthorsAddress  Zip;  TStrin^ield; 

AuthorsCountry:  TStringField; 

AuthorsPhone  LocalNumber;  TStrin^ield; 
AuthorsPhoneAreaCode;  TStrin^ield; 

AuthorsPhone_FaxNumber;  TStrinj^ield; 

AuthorsEmail;  TStringField; 

ArticlesPaperNumber;  TIntegerField; 

ArticlesTitle;  TStrin^ield; 

Articlesinvited;  TStringField; 

ArticlesAccepted;  TStringField; 

ArticlesContactAuthorNumber;  TIntegerField; 

ArticlesSession;  TStringField; 

ArticlesKeywordl:  TStringField; 

ArticlesKeyword2;  TStringField; 

ArticlesKeywordB;  TStringField; 

ArticlesAbstract;  TMemoField; 
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ArticlesContactOrder:  TStringField; 
ArticlesFName2:  TStringField; 
ArticlesLName2:  TStringField; 
Articleslnitial2:  TStringField; 
ArticlesInstitution2;  TStringField; 
ArticlesOrder2:  TStringField; 
ArticlesFNameS:  TStringField; 
ArticlesLNameS:  TStringField; 
ArticlesInitialS:  TStringField; 
Articles&istitution3:  TStringField; 
ArticlesOrderS;  TStringField; 
ArticlesFName4:  TStringField; 
ArticlesLNanie4:  TStringField; 
ArticlesInitiaM;  TStringField; 
ArticlesInstitution4:  TStringField; 
ArticlesOrder4:  TStrin^ield; 
ArticlesFNameS;  TStrin^ield; 
ArticlesLNameS:  TStringField; 
ArticlesInitialS:  TStringField; 
ArticlesInstitutionS;  TStringField; 
ArticlesOrderS;  TStringField; 
ArticlesFName6:  TStringField; 
ArticlesLName6:  TStringField; 
Articleslnitial6;  TStringField; 
ArticlesInstitutionS;  TStringField; 
ArticlesOrderS;  TStringField; 
procedure  FonnCreate(Sender;  TObject); 
private 

{ Private  declarations } 
public 

{ Public  declarations  } 
end; 

var 

Forml;  TForml; 

theabstract ;  TStringList; 
theAuthors ;  TStringList; 

i;  integer; 

dbContactOrderInt;  integer; 
dbOrder2int;  integer; 
dbOrderSint;  integer; 
dbOrder4int;  integer; 
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dbOrderSint:  integer; 
dbOrder6int;  integer; 

dPaperNumber:  string; 

dbtitle:  string; 
dbinvited:  string; 
dbaccepted:  string; 
dbANumber:  string; 
dbSession:  string; 

dbkeywordl;  string; 
dbkeyword2:  string; 
dbkeywordS:  string; 
dbabstract;  string; 
dbcontactOrder:  string; 

dbfname2:  string; 
dblnan3e2;  string; 
dbinitial2:  string; 
dbinstitution2:  string; 
dborder2:  string; 

dbfnameS:  string; 
dblnameS;  string; 
dbinitial3;  string; 
dbinstitution3:  string; 
dborder3;  string; 

dbfiianie4:  string; 
dblname4;  string; 
dbinitiaW:  string; 
dbinstitution4:  string; 
dbofder4;  string; 

dbfnameS;  string; 
dblnameS;  string; 
dbinitiidS:  string; 
dbinstitutionS:  string; 
dborderS:  string; 

dbfhameb:  string; 
dblname6;  string; 
dbinitial6:  string; 
dbinstitution6:  string; 


dborder6;  string; 

dbFName :  string; 
dbLName :  string; 
dblnitial:  string; 
dbHonorific :  string; 
dblnstitution :  string; 

implementation 

{$R*.DFM} 

procedure  TFonnl.FormCreate(Sender:  TObject); 
begin 

with  CGIEnvDatal  do 
begin 

webSiteINIFilename:=paramstr(  1 ); 

appIication.onException:==cgiErrorHandIer; 

application.processMessages; 

createStdout; 

sendPrologue; 


{ Get  the  Paper  Number  Selected} 

try 

dPaper_Number=  CGIQueryString^; 
finally 

{ Send  the  html  page  } 

send  ('<HTMLxHEAD>’); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers  System  Admin;  Print  an  Article'); 
send  ('</HEADxBODY  bgcoloi=FRFFFF>'); 

end;  {try} 


(Determine  if  one  Article  or  ALL  Articles  were  requested} 
if  dPaper_Number  =  cginotfound  then  begin 

send('<centerxH2>Asilomar  Conference  System  Administration<^H2><center>’); 
sendhr; 

sendhdr  CS',  Print  to  a  file.’); 


435 


send(Tlease  enter  the  name  of  the  file  into  which  you  would  like  the  Article  Information 
placed. '); 

send('The  file  extension  is  not  required,  the  file  will  be  given  the  extension  .Art  after  it  is 
created. '); 

sendCIf  an  existing  file  name  is  used,  the  old  file  extension  will  be  changed  to  .old  and  the 
new '); 

sendCfile"s  extension  will  be  .Art'); 

send('<P><FORM  ACTION- '../cgi-win/P_Artfil.exe"  METHOI>="POST">'); 
sendC<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 

send('<INPUT  TYPE="hidden"  Name="Paper_Number"  Value=’"  +dPaper_Number+ 
send('<CENTERxB>File  Name:  </BxINPUT  TYPE="text"  Name="filename"  Size="25" 
Value="Title.Art’'xBR>'); 

send('<PxINPUT  TYPE="submit"  Value="Print  the  Articles  to  this 
file"></CENTERx/FORMxBR>'); 

sendhr; 

send('<PxFORM  ACTION- '../cgi-win/Adminpwd.exe"  METHOD- 'POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="  1 

send('<PxCENTERxINPUT  TYPE-'submit"  Value="Retum  to  the  System  Admin 
Options  page"x/CENTERx/FORM>’); 

end  {Print  ALL  Articles} 

else  begin 

{Print  ONE  Article} 

{ Get  the  Paper  Record  from  the  SUBMISSION  Table } 

with  Articles  do  begin 

{  Move  to  proper  record} 

open; 

first; 

while  fieldbyName(’Paper_Number').asstring  o  dPaper_Number  do 
next; 

{ Retrieve  record } 
dbtitle:=  fieldByName  ('title').asstring; 
dbinvited:=  fieldByName  ('invited').asstring; 
dbaccepted:=  fieldByName  ('accepted').asstring; 
dbANumber:=  fieldByName  ('ContactAuthorNumber').asstring; 
dbSession:=  fieldByName  ('Session').asstring; 
dbkeywordl:=  fieldByName  ('keywordr).asstring; 
dbkeyword2;=  fieldByName  ('ke5Word2').asstring; 
dbkeyword3:=  fieldByName  (’keyword3').asstring; 
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CGIDBl.memoToStringList  (fieldbyname  ('Abstract'),  theabstract); 

dbcontactOrder;=  fieldByName  ('contactOrder').asstring; 

dborder2;=  fieldByName  ('order2').asstring; 
dbfhame2;=  fieldByName  ('fiiaine2').asstring; 
dbinitial2:=  fieldByName  ('mitial2').asstring; 
dblname2:=  fieldByName  ('Iname2').asstring; 
dbinstitution2:=  fieldByName  ('institiition2'Xasstring; 

dborder3:=  fieldByName  ('order3').asstring; 
dbfhame3;=  fieldByName  ('fhame3').asstring; 
dbimtial3:=  fieldByName  ('initial3').asstring; 
dblname3:=  fieldByName  ('lname3').asstring; 
dbinstitiition3:=  fieldByName  ('iiistitution3').asstring; 

dborder4:=  fieldByName  ('order4').asstring; 
dbfhame4;=  fieldByName  ('fhame4').asstring; 
dbinitial4:=  fieldByName  ('imtial4').asstring; 
dblname4;=  fieldByName  ('lname4').asstring; 
dbinstitution4:=  fieldByName  ('institution4').asstring; 

dborder5:=  fieldByName  ('order5').asstring; 
dbfname5:=  fieldByName  ('fhame5').asstring; 
dbinitial5;=  fieldByName  ('initial5').asstring; 
dblname5:=  fieldByName  ('lname5').asstring; 
dbinstitution5;=  fieldByName  ('institution5').asstring; 

dborder6:=  fieldByName  ('order6').asstring; 
dbfhame6:=  fieldByName  ('fhame6').asstring; 
dbinitial6;=  fieldByName  ('initial6').asstring; 
dblname6:=  fieldByName  ('lname6').asstring; 
dbinstitution6:=  fieldByName  ('institution6'),asstring; 
end;  {With  Articles} 

{ Get  Author  Name  information  from  the  AUTHOR  Table  } 
with  Authors  do  begin 

{ Move  to  proper  record} 

open; 

first; 

while  fieldbyName('ANumber').asstring  o  dbANumber  do 
next; 
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{ Retrieve  Author  Name  information } 

dbFName  ;=  fieldByNameCFNameO-AsString; 
dbLName  :=  fieldByName('LName').  AsString; 
dblnitial  ”  fieldByNameCInitiar).  AsString; 
dbHonorific  :=  fieldByNameCHonorific').  AsString; 
dblnstitution  :=  fieldByName(’Institution').  AsString; 
close; 
end; 


{Print  Article} 

sendhdr  ('3',  '<PxBRxPxCENTER>'  +dbtitle+  '</CENTER>'); 

send('<PxBRxB>Registration  Number:  </B>'  +dPaper_Numberf "); 
send  ('<PxB>Keyword  #1 :  </B>'  +dbkeywordl+ "); 

if  (dbKeyword2  o  TSfone’)  flien  send  ('<PxB>Keyword  #2:  +dbkeyword2+ "); 

if  dbKeywordS  o  'None'  then  send  C<PxB>Keyword  #3:  </B>'  +dbkeyword3+ "); 

{Determine  Order  of  Authors } 

theAuthors:=  TStrin^ist.create; 

{Send  the  Authors} 

send('<PxB>Authors:</Bxp>'); 

if  dbContactOrder  = "  then  send("  +dbFName+ ' '  +dblnitial+ ' '  +dbLName+ ' 
+dbInstitution+ ") 
else  begin 

{initialize  the  stringlist} 
for  i:=  0  to  6  do 

theAuthors.add(This  string  is  not  used'); 
dbContactOrderlnt.-  strtoint(dbContactOrder); 

theAuthors[dbContactC)rderInt]:=  ''+dbFNanie+ ' '  +dblnitial+ ' '  +dbLName+ ', ' 
+dbInstitution+ "; 

if  dbOrder2  o "  then  begin 
dbOrder2Int;=  strtoint(dbOrder2); 

theAuthors[dbOrder2Int]:=  ''+dbFName2+ ' '  +dblnitial2+ ' '  +dbLName2+ ' 
+dbInstitution2+ "; 
end; 

if  dbOrderS  o  "  then  begin 
db0rder3Int:=  strtoint(dbOrder3); 
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theAuthors[(ibOrder3Int];=  "+dbFName3+  ’ '  +dblnitial3+ ' '  +dbLNanie3+ ' 
+dbInstitution3+ 
end; 

if  dbOrder4  o "  then  begin 
db0rder4Int~  strtoint(dbC)rder4); 

theAuthors[dbOrder4Int]:=  "+dbFName4+ ' '  +dblnitiai4+ ' '  +dbLName4+ ' 
+dbInstitution4+ 
end; 

if  dbOrderS  o "  then  begin 
db0rder5Int;=  strtoint(dbOrder5); 

theAuthors[dbOrder5Int]~  "+dbFName5+ ' '  +dblnitial5+ ' '  +dbLName5+ ' 
+dbInstitution5+ "; 
end; 

if  dbOrderb  o "  then  begin 
db0rder6Int:=  strtoint(dbOrder6); 

theAuthors[dbOrder6Int];=  "+dbFName6+ ' '  +dblnitial6+  ’ '  +dbLName6+ ' 
+dbInstitution6+ "; 
end; 

for  i:=  1  to  6  do 

if  theAuthorsp]  o  'This  string  is  not  used'  then  sendC  +theAuthors[i]+  '<BR>'); 
end;  {else} 

{Send  the  Abstract} 

send  ('<PxBRxB>Abstract:  <yBxbr>'); 
for  i  :=  0  to  theabstractcount  - 1  do 
send(  theabstract.strings[i] ); 

theabstract.free;  {release  the  memory  held  by  'theabstract'} 
end;  {IF  One  Article} 


send  ('</B0DYx7HTML>’); 
closeStdout; 

closeApp(  application );  { don’t  leave  form  around  } 
end;  {with  CGIEnvDatal} 
end;  {with  FormCreate} 
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end 
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Print  Articles  to  file;  P  ArtfiLexe 


unit  Prartfil; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 

TForml  =  class(TForm) 

DataSourcel;  TDataSource; 

Articles;  TT^le; 

CGIEnvDatal;  TCGIEnvData; 

CGIDBl;  TCGIDB; 

ArticlesPaperNumber;  TIntegerField; 

ArticlesTitle;  TStringField; 

Articlesinvited;  TStrin^ield; 

ArticlesAccepted;  TStrin^ield; 

AiticlesContactAuthorNumber;  TIntegerField; 

ArticlesSession;  TStrin^ield; 

ArticlesKeywordl;  TStringField; 

ArticlesKeyword2;  TStrin^ield; 

ArticlesKeyword3;  TStringField; 

ArticlesAbstract;  TMemoField; 

ArticlesContactOrder;  TStringField; 

ArticlesFName2;  TStrin^ield; 

ArticlesLNanie2;  TStringField; 

Articleslnitial2;  TStringField; 

ArticlesInstitution2;  TStringField; 

ArticlesOrder2;  TStrin^ield; 

ArticlesFNameS;  TStringField; 

ArticlesLNameS;  TStringField; 

ArticlesInitialS;  TStringField; 

ArticlesInstitutionS;  TStringField; 

ArticlesOrderS;  TStringField; 

ArticlesFName4;  TStringField; 

ArticlesLName4;  TStringField; 

Articleslnitial4;  TStringField; 

ArticlesInstitution4;  TStringField; 

ArticlesOrder4;  TStringField; 

ArticlesFNameS;  TStrin^ield; 

ArticlesLNameS;  TStringField; 

ArticlesInitialS;  TStringField; 
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ArticlesInstitutionS:  TStringField; 
ArticlesOrderS;  TStringField; 
ArticlesFName6;  TStrin^ield; 
ArticIesLName6:  TStringField; 
Articleslnitial6;  TStringField; 
ArticlesInstitution6;  TStringField; 
ArticlesOrder6;  TStringField; 

Authors;  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations } 
public 

{ Public  declarations } 
end; 

var 

Forml;  TForml; 

MyFileHandle:  THandle; 

F;  Textfile; 

theabstract :  TStringList; 
theAuthors ;  TStringList; 

i;  integer; 

dbContactOrderInt:  integer; 
dbOrder2int;  integer; 
dbOrderSint;  integer; 
dbOrder4int:  integer; 
dbOrderSint;  integer; 
dbOrderbint:  integer; 

dFileName,  dFileNamein,  dflag:  string; 
PathFile,  OldFile:  string; 

dbPaper  Number:  string; 
dbtitle;  string; 
dbinvited:  string; 
dbaccepted:  string; 
dbANumber;  string; 
dbSession;  string; 

dbkeywordl ;  string; 
dbkeyword2:  string; 
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dbkeywordS;  string; 
dbabstract;  string; 
dbcontactOrder:  string; 

dbfhame2;  string; 
dblnamel:  string; 
dbinitial2;  string; 
dbinstitution2:  string; 
dborder2:  string; 

dbfhameS;  string; 
dblnameS:  string; 
dbinitiaB:  string; 
dbinstitutionS:  string; 
dborderS:  string; 

dbfhanie4;  string; 
dblname4;  string; 
dbinitial4:  string; 
dbinstitution4:  string; 
dborder4:  string; 

dbfiiameS:  string; 
dblnameS:  string; 
dbinitialS:  string; 
dbinstitutionS:  sfring; 
dborderS:  string; 

dbfhameb:  string; 
dblnameb:  string; 
dbinitial6:  string; 
dbinstitution6:  string; 
dborderb:  string; 

dbFName :  string; 
dbLName :  string; 
dblnitial:  string; 
dbHonorific :  string; 
dblnstitution :  string; 


implementation 
{$R  *.DFM} 


procedure  TForml.FormCreate(Sender;  TObject); 
begin 

with  CGIEnvDatal  do 
begin 

webSiterNIFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application-processMessages; 

createStdout; 

sendPrologue; 

{ Send  the  html  page  } 

send  C<HTMLxHEAD>’); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers  System  Admin;  Print  an  Article'); 
send  (’</HEADxBODY  bgcolor=FFFFFF>'); 

send(’<centerxH2>Asilomar  Conference  System  Administration</H2xycenter>'); 
sendhr; 


{ Get  the  FORM  Data} 

dflag:=  getsmallfield  (flag'); 
dFileNamein;=  getsmallfield  ('filename'); 


if  dflag  =  T  then  begin 
{Print  Articles} 

(Prepare  File} 

try 

if  ExtractFileExt(dFileNamein)  =  'Art'  then  dFileName:=  dFileNamein 
else  dFileName:=  ChangeFileExt("+dFileNamein+ ",  '.Art'); 

PathFile:=  'c:\website\htdocs\Download\'  +dFileName+"; 
if  FileExists(PathFiIe)  then  begin 
{rename  old  file} 

OldFile  :=  ChangeFileExt("+PathFile+ ",  '.OLD'); 

{open  New  file} 
fileopen  (dFileName,  0); 

{send  notice} 

send('There  was  an  existing  file  named '"  +PathFile+ '"  which  was  renamed  to 
+01dFile+ '".'); 
end 

else  MyFileHandle  :=  filecreate(PathFile); 
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finally 

{Prepare  File  for  Writing} 

AssignFile  (F,  PathFile); 
Append(F); 

end;  {try} 


{Prepare  Table} 

Articles.open; 

Articles,  first; 

While  not  Articles.EOF  do  begin 
with  Articles  do  begin 
{ Retrieve  record } 

dbPaper_Number:=  fieldByName  ('Paper_Number').asstring; 
dbtitle:=  fieldByName  ('title').asstring; 
dbinvited:=  fieldByName  ('invited').asstring; 
dbaccepted”  fieldByName  ('accepted').asstring; 
dbANumber~  fieldByName  ('ContactAuthorNumber’).asstring; 
dbSession:=  fieldByName  ('Session').asstring; 
dbkeywordl:=  fieldByName  ('keywordr).asstring; 
dbkeyword2:=  fieldByName  ('keyword2').asstring; 
dbkeyword3:=  fieldByName  (Tceyword3').asstring; 

CGIDBl.memoToStrin^ist  (fieldbyname  ('Abstract'),  theabstract); 

dbcontactOrder:=  fieldByName  ('contactOrder’).asstring; 

dborder2:=  fieldByName  ('order2').asstring; 
dbfiiame2;=  fieldByName  ('fhame2').asstring; 
dbinitial2:=  fieldByName  ('initial2').asstring; 
dblname2:=  fieldByName  ('lname2').asstring; 
dbinstitution2:=  fieldByName  ('institution2').asstring; 

dborder3:=  fieldByName  ('order3').asstring; 
dbfhame3:=  fieldByName  ('fhame3').asstring; 
dbinitial3:=  fieldByName  ('initial3').asstring; 
dblname3:=  fieldByName  ('lname3').asstring; 
dbinstitution3;=  fieldByName  ('institution3').asstring; 

dborder4;=  fieldByName  ('order4').asstring; 
dbfhame4:=  fieldByName  ('fhame4').asstring; 
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dbinitial4:=  fieldByName  ('initial4').asstring; 
dblname4:=  fieldByName  (’lname4').asstring; 
dbinstitution4:=  fieldByName  ('institiition4').asstring; 

dborder5:=  fieldByName  ('order5').asstrmg; 
dbfhame5:=  fieldByName  (’fhameS^.asstring; 
dbinitialS”  fieldByName  ('mitial5').asstring; 
dblname5:=  fieldByName  ('lname5').asstrmg; 
dbinstitution5:=  fieldByName  ('institution5').asstring; 

dborder6:=  fieldByName  ('order6').asstring; 
dbfhame6;=  fieldByName  ('fhame6').asstring; 
dbimtial6:=  fieldByName  ('initial6').asstring; 
dblname6;=  fieldByName  Clname6').asstrmg; 
dbinstitutiond—  fieldByName  ('institution6').asstring; 
end;  {With  Articles) 

{ Get  Author  Name  information  from  the  AUTHOR  Table } 

with  Authors  do  begin 

{  Move  to  proper  record) 

open; 

first; 

while  fieldbyName('ANumber’).asstring  o  dbANumber  do 
next; 

{  Retrieve  Author  Name  information  } 
dbFName  :=  fieldByName(TName').  AsString; 
dbLName  :=  fieldByName('LName').  AsString; 
dblnitial  :=  fieldByNameCInitial')- AsString; 
dbHonorific  :=  fieIdByName(’Honorific').AsStrmg; 
dblnstitution  ;=  fieldByName('Institution'). AsString; 
close; 

end;  {with  Authors) 


{Print  Article  data  to  file) 

Writeln(F, '  '); 

Writeln(F,  ’  ’); 

Writeln(F, '  '  +dbtitle+ '  '); 

Writeln(F, '  '); 

Writeln(F, '  '); 

Writeln(F,  ’  '); 

Writeln(F, '  '); 
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WriteIn(F,’  '); 

Writeln(F, '  '); 

Writeln(F,  'Registration  Number: '  +dbPaper_Number+ "); 

Writeln(F,  ’  ’); 

Writeln(F,  "Keyword  #1: '  +dbkeywordl+ "); 

Writeln(F,  ’  ’); 

if  dbKeyword2  o  'None'  then  Writeln(F,  Keyword  #2: '  +dbkeyword2+ "); 
Writeln(F,'  '); 

if  dbKeywordS  o  "None'  then  Writeln(F,  Keyword  #3: '  +dbkeyword3+ "); 

Writeln(F, '  '); 

Writeln(F,'  '); 

{Determine  Order  of  Authors  } 

AeAuthors;=  TStrin^istcreate; 

{Send  the  Authors} 

Writeln(F,  'Authors:'); 

Writeln(F,'  '); 

if  dbContactOrder  = "  then  Writeln  (F, "  +dbFName+ ' '  +^Initial+ ' '  +dbLName+ ', ' 
+dbInstitution+ ") 
else  begin 

(initialize  the  stringlist} 

for  i:=  0  to  6  do 

theAuthors.add('This  string  is  not  used'); 
dbContactOrderInt:=  strtoint{dbContactC)rder); 

theAuthors[dbContactOrderInt]:=  "+dbFName^- ' '  +dblnitial+ ' '  +dbLName+ ', ' 
+dbInstitution+ "; 

if  dbOrder2  o "  then  begin 
db0rder2Int:=  strtoint(dbOrder2); 

theAuthorsIdbOrder2Int]:=  ''+dbFName2+ ' '  +dblmtial2+ ' '  +dbLName2+ ', ' 
+dbInstitution2+ "; 
end; 

if  dbOrderS  o "  then  begin 
db0rder3Int:=  strtoint(dbOrder3); 

theAuthors[dbC)rder3Int]:=  ''+dbFName3+ ' '  +dblnitial3+ ' '  +dbLName3+ ', ' 
+dbInstitution3+ "; 
end; 

if  db0rder4  o "  then  begin 
db0rder4Int:=  strtoint(dbOrder4); 
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theAuthors[dbOrder4Int]:=  "+dbFName4+ ' '  +dblnitial4+ ' '  +dbLNanie4+ ' 
+dbInstitution4+ 
end; 

if  dbOrderS  o "  then  begin 
db0rder5Int:=  strtoint(dbC)rder5); 

theAuthors[dbOrder5Int];=  "+dbFName5+ ' '  +dblnitial5+ ' '  +dbLName5+ ' 
+dblnstituti(m5+ 
end; 

if  dbOrderd  o "  then  begin 
db0rder6Int:=  strtoint(dbOrder6); 

theAuthors[dbOrder6Int]:=  "+dbFName6+ ' '  +dblnitial6+ ' '  +dbLName6+ ’ 
+dbInstitution6+ "; 
end; 

for  i:=  1  to  6  do 

if  theAuthors[i]  o  'This  string  is  not  used'  then  Writeln(F, "  +theAuthors[i]+  '<BR>'); 
end;  {else} 

(Send  the  Abstract} 

Writeln(F, '  '); 

Writeln(F, '  '); 

Writeln(F,  'Abstract; '); 

Writeln(F, '  '); 

for  i  :=  0  to  theabstract.count  - 1  do 
Writeln(F, "  +theabstract.strings[i]+ "); 

theabstract.free;  {release  the  memory  held  by  'theabstract'} 

{Fill  out  the  rest  of  the  page} 

Writeln(F,’  '); 

Writeln(F,’  ’); 

Writeln(F,'  '); 

Writeln(F,’  ’); 

Writeln(F,'  '); 

Writeln(F,'  '); 

Writeln(F,'  '); 

Writeln(F,'  '); 

Writeln(F,'  ’); 

Writeln(F,'  '); 

Writeln(F,'  '); 

Writeln(F,'  '); 

Writeln(F,'  '); 
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Writeln(F,'  ’); 

Writeln(F,’  '); 

Writeln(F,’  *); 

Writeln(F,'  '); 

Writeln(F,’  ’); 

Writeln(F,'  ’); 

Writeln(F,’  ’); 

Writeln(F,'  ’); 

Writeln(F,'  '); 

Writeln(F,'  '); 

Writeln(F,’  '); 

Writeln(F,'  '); 

Writeln(F/  ’); 

Writeln(F,’ - '); 

Articles.next; 
end;  {while} 

closeFile(F); 


end  {Kflag} 
else  begin  {bad  flag} 

send('<centerxHl>Asilomar  Conference  on  Signals,  Systems,  & 
Computers</Hlx/center>'); 
sendhr; 

send('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 
send  ('<P>Please  ensure  that  you  are  authorized  to  access  Ais  information.'); 
send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">tiy  to 
login  again.</A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 
send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 
send  ('prosecution  for  your  actions. <BR>'); 
end;  {if  dflag  else} 


sen<flidr('3','The  file  has  been  generated!'); 

send('The  file  <B>'"  +dFileName+  ’"</B>  is  ready  to  be  Downloaded.'); 
send('You  may  <A  HREF="../downioad/'  +dFileName+  '">Download  the  file  by  FTP 
now!</AxBR>'); 
sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
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send(’<P><CENTER><INPUT  TYPE=‘’submit"  Value="Retiim  to  the  System  Admin 
Options  page"x^CENTERx/FORM>'); 
send  C</BODYx/HTMI>'); 
closeStdout; 

closeApp(  application );  { don't  leave  form  around  } 
end;  {with  CGIEnvDatal} 
end;  {with  FormCreate} 


end. 


450 


unit  Praccept; 
interface 


Instructions  /  Options;  P_Accept.exe 


uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi; 

type 

TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

CGIDB  1:  TCGIDB; 

procedure  FormCreate(Sender;  TObject); 
private 

{ Private  declarations  } 
public 

{ Public  declarations } 
end; 

var 

Forml:  TForml; 

dflag:  string; 
daction:  string; 


implementation 

{$R*.DFM} 

procedure  TForml. FormCreate(Sender;  TObject); 
begin 

with  CGIEnvDatal  do  begin 

wd3SiteINIFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 

{  Get  fields  from  search  page } 
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dflag:=  getsmallfield  ('flag'); 

daction:=  getsmallfield  ('action'); 

send  C<HTMLxHEAD>’); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

send('<A  NAME=#top"xcenterxH2>Asilomar  Conference  System 
Administration</H2x/centerx/A>'); 

sendhr; 

send('<P>After  review.  Articles  will  have  been  accepted  or  rejected.  This  information  is 
entered '); 

send('into  the  database  in  the  "Database  Functions"  portion  of  the  System  Admin  Options 
Page.  '); 

send('If  this  information  has  not  yet  been  entered,  please  go  to  the  <A 
HREF="#bottom">Bottom  of  this  Page</A> '); 

send('for  a  link  to  the  System  Admin  Options  Page.’); 

send('<P>There  are  three  options  in  printing  out  an  Article"s  accept/reject  letter:'); 

send('<PxA  HREF="#one  to  screen">Print  a  letter  for  ONE  specific  Article  to  die 
SCREEN.</AxBR>’); 

send('<PxA  HREF="#one  to  file">Print  a  letter  for  ONE  specific  Article  to  a 
FILE.</AxBR>'); 

send('<PxA  HREF="#all  to  file">Print  a  letter  for  EVERY  Article  to  a 
FILE.</AxP><BRxP>'); 


{print  to  screen  option} 

send  ('<A  NAME="one  to  screen"xHRx/AxP>'); 

sendhdr  ('3',  "Printing  a  letter  for  ONE  specific  Article  to  the  screen'); 

send  ('Selecting  this  option  will  display  the  letter  as  an  HTML  page  that  can  be '); 

send  ('printed  directly  from  most  Browsers.<BR>'); 

send('<PxFORM  ACTION="../cgi-win/P_accep2.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag''  Value="l">'); 
send(’<PxBRxCENTERxlNPUT  TYPE="submit"  Value="Print  ONE 
Article"x/CENTERx/FORM>’); 

send('<PxBRxA  HREF=#top">Go  back  to  the  top  of  the  page  for  more 
options</AxpxBR>'); 

{print  to  file  option} 

send  ('<A  NAME="one  to  file"xHRxyAxp>’); 

sendhdr  ('3',  Printing  a  letter  for  ONE  specific  Article  to  a  file'); 
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send  ('Selecting  this  option  will  print  a  letter  to  a  file.  You  will  provide  a  Name  for  the  file 
and  then  be  able '); 

send  ('to  FTP  the  file  to  your  location.  The  file  will  contain  ASCII  text  that  can  be 
manipulated  by  any '); 

send  ('word-processor.<BR>'); 

send('<PxCENTERxFORM  ACTION=''../cgi-win/P_accep2.exe"  METHOr>='POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 

send('<PxlNPUT  TYPE="submit"  Value="Print  ONE  Article"x/CENTERx/FORM>'); 

send('<PxBRxA  HREF=#top">Go  back  to  the  top  of  the  page  for  more 
options<AxPxBR>'); 

{print  ALL  to  file  option} 

send  ('<A  NAME="all  to  file"xHRx/AxP>'); 
sendhdr  ('3',  Printing  a  letter  for  EVERY  Article  to  a  file'); 

send  ('Selecting  this  option  will  print  a  letter  for  EVERY  Article  in  the  database  to  a  single 
file.  '); 

send  CEnter  the  file  Name  below.  The  file  will  contain  ASCII  text  and  can  be  retrieved  by 
FTP.  <BR>'); 

send  ('The  file  extension  is  not  required  as  it  will  be  .Let  after  the  operation  is  complete. '); 
send  ('If  an  existing  file  name  is  used,  the  old  file  extension  will  be  changed  to  .old  and  the 
new '); 

send  ('file''s  extension  will  be  .Let'); 

send  ('<PxFORM  ACTION="../cgi-win/P_accAIl.exe"  METHOI>="POST">'); 
send  ('<INPUT  TYPE="hidden"  Name="flag"  Value="  !">'); 

send  ('<centerxB>File  Name;  c/BxINPUT  TYPE="text"  Name="filename"  Size="25" 
Value="AllAuths.Let"xBR>'); 

send  (’<PxINPUT  TYPE="submit"  Value="Print  the  letters  to  this 
file"x/CENTERx/FORM>'); 

send  ('<PxBRxA  HREF=#top">Go  back  to  the  top  of  the  page  for  more 
options</AxPxBR>'); 

{send  Footer} 
sendhr; 

send  ('<PxBRxA  NAME="bottom"x/A>'); 

send('<PxFORM  ACTION=''../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
sendC<INPUT  TYPE=''hidden"  Name="flag"  Value=’'l">'); 

send('<PxCENTERxINPUT  TYPE==''submit"  Value="Retum  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
sendC<PxBRxPxBRxPx:BR>'); 
send  ('<yBODYx/HTML>'); 
closeStdout; 
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closeApp(  application  ); 
end;  {with  cgiEnvDatal  do} 


end;  {FormCreate} 
end. 
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Print  all  to  a  file;  P  AccAlLexe 


unit  Praccall; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgidb,  Cgi; 

type 

TForml  =  class(TForm) 

CGIEnvDatal;  TCGIEnvData; 

CGIDBl:  TCGIDB; 

DataSourcel:  TDataSource; 

Articles:  TTable; 

Authors:  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations } 
public 

{ Public  declarations } 
end; 

var 

Forml;  TForml; 

dFileName,  dFileNamein:  string; 

dflag:  string; 

dPaper  Number:  string; 

dbANumber,  dbTitle:  string; 

dbFName :  string; 
dbLName :  string; 
dblnitial ;  string; 
dbHonorific :  string; 
dblnstitution :  string; 
dbDepartment :  string; 
dbMailstop ;  string; 
dbAddress_Street ;  string; 
dbAddress_City ;  string; 
dbAddress_State :  string; 
dbAddress  Zip ;  string; 
dbCountry :  string; 
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dbPhoneJLocalNumber :  string; 
dbPhone_FaxNumber :  string; 
dbEmail ;  string; 

PathFile,  OldFile:  string; 
MyFileHandle:  THandle; 

F:  TextFile; 


implementation 
{$R  ♦.DFM} 

procedure  TForml.FormCreate(Sender:  TObject); 
begin 

with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 

application.onException;=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 

{  Get  fields  from  search  page  } 
dflag:=  getsmallfield  ('flag'); 
dPaper_Number;=  getsmallfield  (’Paper_Number’); 
dFilenamein~  getsmallfield  ('filename’); 

{HTML  Header} 

send  ('<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers’); 
send  (’<HEADxBODY  bgcolor=FFFFFF>’); 

send('<centerxH2>Asilomar  Conference  System  Administration<yH2x/center>’); 
sendhr. 


(Check  the  flag} 
if  dflag  =  ’1’  then  begin 

{Prepare  File} 

if  ExtractFileExt(dFileNamein)  =  "Let’  then  dFileName:=  dFileNamein 
else  dFileName:=  ChangeFileExt(’'+dFileNamein+  ”,  ’.Let’); 
PathFile;=  'c;\website\DownloadV  +dFileName+"; 
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if  FileExists(PathFile)  then  begin 
{rename  old  file} 

OldFile  :=  ChangeFileExtC+PathFile+ ",  '.OLD*); 

{open  New  file} 
fileopen  (dFileName,  0); 

{send  notice} 

send(’There  was  an  existing  file  named  +PathFile+  which  was  renamed  to 
+01dFile+ 
end 

else  MyFileHandle  :=  filecreate(PathFile); 
finally 

{Prepare  File  for  Writing} 

AssignFile  (F,  PathFile); 

Append(F); 

end;  {try} 

(Prepare  Table} 

Articles.open; 

Articles.first; 

While  not  Articles.EOF  do  begin 
(Retrieve  Data} 

^ANumber:=  Articles.fieldbyname  ('ContactAuthorNumber').asstring; 
dbTitle:=  Articles.fieldbyname  ('Title').asstring; 

(Get  Contact  Author  Data} 

With  Authors  do  begin 

(Move  to  Record} 

open; 

first; 

while  fieldbyname('ANumber').asstring  o  dbANumber  do 
next; 

dbFName  :=  fieldByName(TName’).AsString; 
dbLName  :=  fieldByNameCLName').  AsString; 
dblnitial  :=  fieldByNameCInitial'). AsString; 
dbHonorific  ~  fieldByNameCHonorific').  AsString; 
dblnstitution  ”  fieldByName('Institution').AsString; 
dbDepartment  :=  fieldByName('Department').AsString; 
dbMailstop  :=  fieldByName(Mailstop').  AsString; 
dbAddress_Street  :=  fieldByName('Address_Street’).  AsString; 
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dbAddressCity  ~  fieIdByName('Address_Cily’).AsStrmg; 
dbAddress_State  7=  fieldByNam^’Address_State').AsSlring; 
dbAddress_Zip  :=  fieldByName('Address_Zip’).  AsString; 
dbCountry  ~  fieldByNameCCountry').  AsString; 
dbPhone_LocalNumber  :=  fieldByName(Thone_LocalNumber').  AsString; 
dbPhoneFaxNumber fieldByName(Phone_FaxNumber').  AsString; 
dbEmail  :=  fieldByNameCEmail').  AsString; 
end;  {with  Authors} 

{Print  Article  data  to  file} 

Writeln(F,'  '); 

Writeln(F,’  '); 

Writeln(F,'  '); 

Writeln(F, '  ’  +webdate(now)+ "); 

Writeln(F,'  ’); 

Writeln(F,’  '); 

Writeln(F, ' '  +dbHonorific+ ' '  +dbFName+ ' '  +dblnitial+ ' '  +dbLNanle^-  '<BR>'); 

Writeln(F, '  ’  +dbAddress_Street+ "); 

if  dbCountry  =  USA'  then  Writeln(F, "  +dbAddress_City+ '  +dbAddress_State+  ’ ' 
+dbAddress_Zipf ") 

else  Writeln(F, "  +dbAddress_City+ '  +dbCountry+  '<BR>'); 

Writeln(F,'  '); 

Writeln(F,'  ’); 

Writeln(F,  Dear '  +dbHonorific+  ’ '  +dbLName+  V); 

Writeln(F,'  '); 

WriteIn(F,  'Thank  you  for  your  interest  in  submitting  a  Paper  for  presentation  at  the  Thirtieth 
Annual '); 

Writeln(F,  'Asilomar  Conference  on  Signals,  Systems,  &  Computers.’); 

if  Articles,  fieldbyname  ('accepted').asstring  =  'V  then  begin  {Print  accept} 

Writeln(F,  'We  are  pleased  to  inform  you  that  your  article,  +dbTitle+ has  been 
selected '); 

Writeln(F,  'for  the  conference.  Please  ensure  you  have  a  copy  of  tire  final  article  to  give 

to  the '); 

Writeln(F,  'conference  for  publication  in  the  Proceedings.  <BR>'); 

Writeln(F, '  '); 

Writeln(F,  'Thank  you  again,  we"!!  see  you  at  the  conference.'); 

Writeln(F, '  '); 

Writeln(F, '  '); 

Writeln(F,  ’  '); 

Writeln(F, '  '); 

Writeln(F, '  '); 
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Writeln(F,  ’  ’); 
Writeln(F, ' 


Technical  Program  Chair'); 


{Fill  out  the  rest  of  the  page} 

Writeln(F,'  ’); 

Writeln(F,'  •); 

Writeln(F,'  ’); 

Writeln(F,’  ’); 

Writeln(F,'  ’); 

WriteIn(F,’  ’); 

Writeln(F,’  ’); 

Writeln(F,'  '); 

Writeln(F,'  ’); 

Writeln(F,'  '); 

Writeln(F,'  ’); 

Writeln(F,’  ’); 

Writeln(F,'  ’); 

Writeln(F,'  '); 

Writeln(F,  ’ - -  '); 

end  (Print  accept} 

else  if  Articles.fieldbyname  ('accepted’).asstring  =  'N'  flien  begin  (Print  Reject} 

Writeln(F,  'We  are  sorry  to  inform  you  that  your  article, +dbTitle+ was  not  selected 
for  this  yeai"s '); 

Writeln(F,  'conference.  <BR>'); 

Writeln(F,'  '); 

Writeln(F,  Thank  you  ^ain  for  your  interest.  We  hope  to  see  you  at  the  conference.’); 
Writeln(F,'  ’); 

Writeln(F,'  '); 

Writeln(F,'  '); 

Writeln(F,'  '); 

Writeln(F,'  '); 

Writeln(F, '  Technical  Program  Chair'); 

(Fill  out  the  rest  of  the  page} 

Writeln(F,'  '); 

Writeln(F,'  '); 

Writeln(F, '  '); 

Writeln(F,'  '); 

Writeln(F,’  '); 

Writeln(F,'  '); 

Writeln(F,’  '); 

Writeln(F, '  '); 

Writeln(F,'  ’); 
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Writeln(F,’  '); 

Writeln(F,'  ’); 

Writeln(F,’  ’); 

Writeln(F,’  ’); 

WTiteln(F,’ - '); 

end  {else  Print  Reject} 

else  Begin  {send  no  accept/reject  data} 

send('There  is  no  Accept/Reject  information  on  the  article  +dbTitle+ 
end;  {bad  accept/reject  data} 

Articles.next; 
end;  {while} 

end  {If  flag} 

else  begin  {bad  flag} 

send('<centerxHl>Asilomar  Conference  on  Signals,  Systems,  & 

Computers</H  1  x/center>'); 
sendhr; 

send('<centerxH2>Yoiir  password  was  <strong>not  accepted!  !</strongx/H2x/center>’); 
send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 
send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to 
login  again.  </A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 
send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 
send  ('prosecution  for  your  actions.  <BR>'); 
end;  {if  dflag  else} 


sendhdr('3','The  file  has  been  generated!'); 

send('The  file  <B>'"  +dFileName+  '"</B>  is  ready  to  be  Downloaded.'); 
send('You  may  <A  HREF=".. /download/'  +dFileName+  '">Download  the  file  by  FTP 
now!</AxBR>'); 
sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
send(’<INPUT  TYPE="hidden"  Name="flag"  Value=’'l">'); 

send('<PxCENTERxINPUT  TYPE="submit"  Value="Retum  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
send  ('</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 
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end;  {with  cgiEnvDatal  do} 
end;  {FormCreate} 
end. 
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Select  Article;  P_Accep2.exe 


unit  Praccep2; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DBTables,  DB; 

type 

TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

CGE)B1:  TCGIDB; 

DataSourcel:  TDataSource; 

Articles:  TTable; 

Query  1;  TQuerj^, 

QuerylTitle;  TStrin^ield; 

QuerylPaperNomber;  TIntegerField; 
procedure  FormCreate(Sender;  TObject); 
procedure  CGIDB  lSendin^otField(currentRecord;  TDataset; 
var  s;  OpenString); 
private 

{  Private  declarations } 
public 

{  Public  declarations } 
end; 

var 

Forml;  TForml; 


implementation 
{$R  ♦.DFM) 

procedure  TForml. FormCreate(Sender:  TObject); 
begin 

with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(l); 

application.onException:=cgiErrorHandler; 

application.processMessages; 
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createStdout; 

sendPrologue; 

send  ('<HTML><HEAD>'); 

SendTitie('Asilomar  Signals,  Systems,  and  Computers'); 
send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

send('<centerxH2>Asilomar  Conference  System  Administration</H2></center>'); 
sendhr; 

send('<P>CIick  on  the  Title  of  the  article  for  which  the  letter  should  be  created.<BR>’); 

with  Queiyl  do  begin 

prepare;  { Optimizes  query } 

close; 

sql.  clear; 

sql.add(’Select  *  FROM  Submissi'); 
sql.add(  'Order  by  Title ' ); 
open; 

send('<centerxp>'); 

CGE)B1  .drawtable;  {display  all  titles} 
send  ('</center>'); 
end;  {withQueryl} 


sendhr; 

send(’<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name='’flag"  Value=''l">'); 

send('<PxCENTERxINPUT  TYPE-'submit"  Value- 'Return  to  the  System  Admin 
Options  page''x/CENTER></FORM>'); 
send  (’</BODYx/HTML>'); 
closeStdout; 
closeApp(  application  ); 

end;  {with  cgiEnvDatal  do} 

end;  {FormCreate} 

procedure  TForml.CGIDBlSendingHotField(currentRecord:  TDataset; 
var  s:  OpenString); 
begin 

s:- <A  HREF='’.  ./cgi-win/P_Accep3  .exe?'+ 
currentrecord.fieldbyName('Paper_Number').AsString  +  '">' 

+  currentrecord.FieldbyName('Title').  AsString  +  '</A>'; 


463 


end; 

end. 
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Choose  screen  or  file:  P_Accep3.exe 


unit  PraccepS; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DBTables,  DB; 

type 

TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

Articles:  TTable; 

CGEnvDatal:  TCGIEnvData; 

CGIDB  1:  TCGIDB; 

Authors:  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations } 
public 

{ Public  declarations } 
end; 

var 

Forml:  TForml; 
dPaper  Number:  string; 
dTitle:  string; 


implementation 

{$R*.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
begin 

with  CGEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 

application.onException:=cgErrorHandler; 

application-processMessages; 

createStdout; 
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sendPrologue; 


{Get  Title  of  Article  from  search  page } 

^aper_Nimiber:=  cgiQueryString^; 

send  C<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  ('</HEADxBODY  bgcolor=FFFFFF>'); 
send('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  & 
Computers</H2x/center>'); 
sendhr; 

{Retrieve  the  Title} 

with  Articles  do  begin 

{Prepare  the  Table} 

open; 

first; 

{Move  to  proper  record} 

While  fieldbyname(Paper_Number').asstring  o  dPaperNumber  do 
next; 

{Retrieve  data} 

dTitle:=  fieldbyname('Title').asstring; 
end;  {With  Articles} 

{Send  the  Options} 

send(The  accept/reject  letter  for  the  Article +dTitle+  may  be  printed  to  the  screen  or  to  a 
file.  '); 

{Send  the  "To  the  screen  option"} 

sendhr; 

sendhdr  ('3',  Print  to  the  screen.'); 

sendC<PxFORM  ACTION="../cgi-win/P_accscr.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag’'  Value="l">’); 

send('<INPUT  TYPE="hidden"  Name="Paper_Number"  Value=’"  +dPaper_Number+  "’>'); 
sendC<PxCENTERxlNPUT  TYPE="submit"  Value="Print  the  Article  Accept/Reject  letter 
to  the  Screen"x/CENTERx/FORM>'); 

{Send  the  "To  a  file  option"} 
sendhr; 

sendhdr  ('3',  'Print  to  a  file.'); 

send(Please  enter  the  name  of  the  file  into  which  you  would  like  the  letter  placed. '); 
send('The  file  extension  is  not  required  as  it  will  be  .Let  after  the  operation  is  complete. '); 
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send('If  an  existing  file  name  is  used,  the  old  file  extension  will  be  changed  to  .old  and  the 
new '); 

send('file"s  extension  will  be  .Let’); 

send(’<PxFORM  ACTION="../cgi-win/P_accfil.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 

send('<INPUT  TYPE='’hidden"  Name="Paper_Number"  Value='"  +dPaper_Number+ 
send('<CENTERxB>File  Name:  </BxlNPUT  TYPE="text"  Name="filename"  Size=’’25" 
V  alue- '  Authors.Let"xBR>'); 

send('<PxlNPUT  TYPE- ’submit"  Value="Print  the  Article  Accept/Reject  letter  to  this 
File'’x/CENTERx/FORM>’); 

{Send  Footer) 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">’); 
send('<INPUT  TYPE-’’hidden"  Name=’'flag"  Value=’’l">'); 
send('<PxCENTERxINPlJT  TYPE="submit"  Value='’Retum  to  the  System  Admin 
Options  page"x/CENTERx/FORM>’); 
send  ('</BOD  Y></HTML>’); 
closeStdout; 
closeApp(  application  ); 

end;  {with  cgiEnvDatal  do) 

end;  {FormCreate} 

end. 


467 


Print  to  sCTeen:  P  AccScnexe 


unitPraccscr; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DBTables,  DB; 

type 

TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

Articles:  TTable; 

CGEnvDatal:  TCGIEnvData; 

CGIDBl:  TCGIDB; 

Authors;  TTable; 

procedure  FormCreate(Sender;  TObject); 
private 

{  Private  declarations } 
public 

{  Public  declarations } 
end; 

var 

Forml;  TForml; 
i:integer; 
dflag;  string; 
dPaper  Number;  string; 
dbANumber,  dbTitle:  string; 
dbFName,  dbLName,  dbbiitial,  dbHonorific;  string; 
dblnstitution:  string; 
dbDepartment:  string; 
dbMailstop;  string; 
dbAddress  Street:  string; 
dbAddress_City:  string; 
dbAddress  State:  string; 
dbAddressJZip:  string; 
dbCountry;  string; 
dbPhone_LocalNumber.  string; 
dbPhone_FaxNumber;  string; 
dbEmail:  string; 

dDate:  string; 
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function  GetDate  (sistring) :  string; 
implementation 
{$R  *.DFM} 

1 4c  sf:  :ic:|e3|:  4:^  4c  3f:  *4: 4^4:  :fc9|e  :lt  4e  4c  3ie  afe  4c  sic a|: 

function  GetDate  (srstring) ;  string; 
const 

BlanksAllowed  =  3; 
var 

i,  blanks:integer; 
temp:  string; 

begin 

i;=  - 1 ;  {variable  to  step  through  strings} 

blanks  :=  0;  {variable  to  count  the  blank  spaces  in  the  string} 


repeat 

i:=i+  1; 

if  s[i]  = ' '  then  blanks  :=  blanks  +  1 ;  {increment  blank  count} 
temp[i]:=  s[i]; 

until  (blanks  =  blanksAllowed)  or  (i=12); 

GetDate  :=  temp; 
end; 

r  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4: 4c  4c  4c  4;  4c  4e  4c  4c  4c  4c  4c  4c  4e  4c  4: 4: 4c  4c  \ 


procedure  TForml.FormCreate( Sender:  TObject); 
begin 

with  CGEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

applicatioaprocessMessages; 

createStdout; 

sendPrologue; 
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send  ('<HTMLxHEAD>’); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

{Get  fields  from  search  page  ) 

dflag”  getsmallfield  ('flag'); 
dPaper_Number:=  getsmallfield  (Paper_NumberO; 

{Get  data  from  the  Record  in  the  Articles  Table} 

with  Articles  do  begin 

{Move  to  Record} 

open; 

first; 

while  fieldbyname('Paper_Number').asstring  o  dPaper_Number  do 
next; 

{Retrieve  Data} 

dbANiimber:=  fieldbyname  ('ContactAuthorNumber').asstring; 
dbTitle:=  fieldbyname  ('Title').asstring; 

{Get  Contact  Author  Data} 

With  Aufliors  do  begin 

{Move  to  Record} 

open; 

first; 

while  fieldbyname('ANumber').asstring  o  dbANumber  do 
next; 

dbFName  ;=  fieldByName('FName').AsString; 
dbLName  :=  fieldByName('LName').  AsString; 
dblnitial  :=  fieldByName('Initiar).  AsString; 
dbHonorific  :=  fieldByName('Honorific').AsString; 
dblnstitution  ;=  fieldByName('Institution').  AsString; 
dbDepartment  ;=  fieldByName('Departmenf).AsString; 
dbMailstop  :=  fieldByNameCMailstop').  AsString; 
dbAddress_Street  :=  fieldByName('Address_Street’).AsString; 
dbAddress_City  ;=  fieldByName('Address_City').  AsString; 
dbAddress_State  :=  fieldByName('Address_State').  AsString; 
dbAddress_Zip  ;=  fieldByName(’Address_Zip').  AsString; 
dbCountiy  :=  fieldByNameCCountry').AsString; 

dbPhone_LocalNumber fieldByName('Phone_LocalNumber').  AsString; 
dbPhone_FaxNumber  :=  fieldByName('Phone_FaxNumber').  AsString; 
dbEmail  :=  fieldByNameCEmail').  AsString; 
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end;  {with  Authors} 


{Print  out  the  letter} 

if  fieldbyname  ('accepted').asstring  =  'T  then  begin  {Print  accept} 

dDate:=  GetDate  (webdate(now)); 
send('<PxBRxP  ALIGN=right> '  +  dDate  + " ); 

send('<P>’  +dbHonorific+ ' '  +dbFName+  ’ '  +dblnitial+  ’  ’  +dbLName+  ’<BR>'); 
send("  +dbAddress_Street+  '<BR>’); 

if  dbCountry  =  USA'  then  sendC  +dbAddress_City+ '  +dbAddress_State+ ' ' 
+dbAddress_Zip+ ") 

else  send("  +dbAddress_City+ ’  +dbCountry+  ’<BR>'); 
send('<P>Dear '  +dbHonorific+ ' '  +dbLName+  ',<BR>'); 

sendCThank  you  for  your  interest  in  submitting  a  Paper  for  presentation  at  the  Thirtieth 
Annual '); 

send('Asilomar  Conference  on  Signals,  Systems,  &  Computers.'); 

send('<P>We  are  pleased  to  inform  you  that  your  article, +dbTitle+ '"  has  been 
selected '); 

send('for  the  conference.  Please  ensure  you  have  a  copy  of  the  final  article  to  give  to  the 

send('conference  for  publication  in  the  Proceedings.<BR>'); 

send('<P>Thank  you  again,  we"ll  see  you  at  the  conference.'); 

send('<PxBRxPxBRxcenter>Technical  Program  Chair</center>'); 
end  {Print  accept} 

else  if  fieldbyname  ('accepted'),  asstring  =  'K  then  begin  {Print  Reject} 

dDate:=  GetDate  (webdate(now)); 
send('<PxBRxP  ALIGN=right> '  +  dDate +  "); 

send('<P>'  +dbHonorific+ ' '  +dbFName+ ' '  +dblnitial+ ' '  +dbLName+  '<BR>'); 
send("  +dbAddress_Street+  '<BR>'); 

if  dbCountry  =  'USA'  then  send("  +dbAddress_City+ ', '  +dbAddress_State+ ' ' 
+dbAddress_Zip+ ") 

else  sendC  +dbAddress_City+ ', '  +dbCountiy+  '<BR>'); 
send(’<P>Dear '  +dbHonorific+ ' '  +dbLName+  ',<BR>'); 

send('Thank  you  for  your  interest  in  submitting  a  Paper  for  presentation  at  the  Thirtieth 
Aimual '); 

sendC Asilomar  Conference  on  Signals,  Systems,  &  Computers.'); 
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send('<P>We  are  sorry  to  inform  you  that  your  article, +dbTitle+  was  not  selected 
for  this  year"s '); 

send('conference.<BR>’); 

send('<P>Thank  you  again  for  your  interest.  We  hope  to  see  you  at  the  conference.'); 

send('<PxBRxPxBRxcenter>Technical  Program  Chair</center>'); 

end  {else  Print  Reject} 

else  Begin  {send  no  accept/reject  data) 

{HTML  Header) 

send('<centerxH2>Asilomar  Conference  System  Administration</H2xycenter>'); 
sendhr; 

sendhdr('2',  'There  is  no  Accept/Reject  information  on  this  article'); 
send('<PxFORM  ACTION="../cgi-win/P_Accep2.exe"  METHOD="POST">'); 
send('<IlSlPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
send('<PxCENTERxlNPXJT  TYPE="submit"  Value='Trint  a  letter  for  another 
article"x/CENTERx/FORM>'); 

{  HTML  Footer) 

sendhr; 

send(’<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
sendC<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
send('<PxCENTERxDsiPUT  TYPE-'sulmiit"  Value="Retum  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
end;  {bad  accept/reject  data) 


end;  {with  Articles) 


send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 


end;  {with  cgiEnvDatal  do) 
end;  {FormCreate) 
end. 
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Print  to  file;  P  AccFiLexe 


unit  Praccfil; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DBTables,  DB; 

type 

TForml  =  class(TFonn) 

DataSourcel:  TDataSource; 

Articles;  TTable; 

CGEEnvDatal;  TCGEEnvData; 

CGIDB  1;  TCGIDB; 

Authors;  TTable; 

Iffocedure  FormCreate(Sender;  TObject); 
private 

{  Private  declarations } 
public 

{  Public  declarations } 
end; 

var 

Forml;  TForml; 

dPath;  string; 
dFileName;  string; 
dflag;  string; 
dPaper  Number;  string; 

dbANumber,  dbTitle;  string; 

dbFName ;  string; 
dbLName ;  string; 
dblnitial ;  string; 
dbHonorific ;  string; 
dblnstitution ;  string; 
dbDepartment ;  string; 
dbMailstop ;  string; 
dbAddress_Street ;  string; 
dbAddress  City ;  string; 
dbAddressState ;  string; 
dbAddress  Zip ;  string; 
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dbCountry :  string; 
dbPhoneJLocalNumber :  string; 
dbPhoneFaxNumber :  string; 
dbEtnail :  string; 

PathFile,  dFileNamein,  OldFile:  string; 
MyFileHandle:  THandle; 

F:  TextiFile; 


implementation 
{$R  *.DFM} 

procedure  TForml.FormCreate(Sender;  TObject); 
begin 

with  CGIEnvDatal  do  begin 

webSiteINIFilename;=paramstr(  1 ); 
application.  onException—cgiErrorHandler; 
application.  processMessages; 

createStdout; 

sendPrologue; 

{  Get  fields  from  search  page } 

^ag~  getsmallfield  ('flag'); 
dFilenamein:=  getsmallfield  ('filename'); 

{HTML  Header} 

send  ('<HTM1XHEAD>’); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x;/center>'); 
sendhr; 


{Check  the  flag} 

if  dflag  =  '1'  then  begin 

{Prepare  File} 
try 

if  ExtractFileExt(dFileNamein)  =  'Let'  then  dFileName:=  dFileNamein 
else  dFileName:=  ChangeFileExt("+dFileNamein+ ",  '.Let'); 
PathFile”  'c:\website\Download\'  +dFileName+"; 


474 


if  FileExists(PathFile)  then  begin 
{rename  old  file} 

OldFile  :=ChangeFileExt("+PathFile+ ",  ’.OLD’); 

{open  New  file} 
fileopen  (dFileName,  0); 

{send  notice} 

send(’There  was  an  existing  file  named  "’  +PathFile+  ’’’  which  was  renamed  to  ’’’ 
+01dFile^- 
end 

else  MyFileHandle  ~  filecreate(PathFile); 
finally 

{Prepare  File  for  writing} 

AssignFile  (F,  PathFile); 

AMJend(F); 

end;  {try} 

{Print  every  Article} 
with  Articles  do  begin 

{Prepare  Table} 

open; 

first; 

{Move  to  Record} 

while  fieldbyname(’Paper_Number’).asstring  o  dPaper_Number  do 
next; 

{Retrieve  Data} 

dbANumber;=  fieldbyname  (’ContactAuthorNiimber’).asstring; 
dbTitle—  fieldbyname  (’Title').asstring; 
end;  {with  Articles) 

{Get  Contact  Author  Data} 

With  Authors  do  begin 

{Move  to  Record} 

open; 

first; 

while  fieldbyname('ANumber’).asstring  o  dbANumber  do 
next; 

dbFName  :=  fieldByName(’FName’).AsString; 
dbLName  :=  fieldByName(’LName’).AsString; 
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dblnitial  :=  fieldByName('Initial'). AsString; 
dbHonorific  :=  fieldByNameCHonorificO-AsString; 
dblnstitution  :=  fieldByName('Institution').AsString; 
dbDepartment  :=  j5eldByName(Department').  AsString; 
dbMailstop  :=  fieldByNameCMailstop').  AsString; 
dbAddress_Street  :=  fieldByName('Address_Street').  AsString; 
dbAddress_City  :=  fieldByNanie('Address_City').  AsString; 
dbAddressState  :=  fieldByNanie('Address_State').  AsString; 
dbAddress_Zip  :=  fieldByNanie('Address_Zip').  AsString; 
dbCountry  ;=  fieldByName('Country').  AsString; 

dbPh0ne_LocalNumber  :=  fieldByName('Phone_LocalNuniber').  AsString; 
dbPhoneFaxNumber  :=  fieldByName(Phone_FaxNumber').AsString; 
dbEmail  ~  fieldByNameCEmair).  AsString; 
end;  {with  Authors} 

{Print  Article  data  to  file} 

Writeln(F,  ’  '); 

Writeln(F,'  ’); 

Writeln(F,’  ’); 

Writeln(F,  ’  ’  +webdate(now)+ "); 

Writeln(F,’  '); 

Writeln(F,’  ’); 

Writeln(F, ' '  +dbHonorific+ ' '  +dbFName+ '  ’  +dblnitial+ ' '  +dbLName+  '<BR>'); 

Writeln(F, ' '  +dbAddress_Street+ "); 

if  dbCountry  =  TfSA’  then  Writeln(F, "  +dbAddress_City+  '  +dbAddress_State+ ' ' 
+dbAddress_Zip+ ") 

else  Writeln(F, "  +dbAddress_City+ '  +dbCountry+  ’<BR>'); 

Writeln(F,’  '); 

Writeln(F,'  ’); 

Writeln(F,  Dear '  +dbHonorific+ ' '  +dbLNanie+  V); 

Writeln(F, '  '); 

Writeln(F,  'Thank  you  for  your  interest  in  submitting  a  Paper  for  presentation  at  the  Thirtieth 
Annual'); 

Writeln(F,  'Asilomar  Conference  on  Signals,  Systems,  &  Computers.'); 

if  Articles-fieldbyname  ('accepted').asstring  =  'Y  then  begin  {Print  accept} 

Writeln(F,  'We  are  pleased  to  inform  you  that  your  article, '"  +dbTitle+ '"  has  been 
selected '); 

Writeln(F,  'for  the  conference.  Please  ensure  you  have  a  copy  of  the  final  article  to  give 
to  the '); 

Writeln(F,  'conference  for  publication  in  the  Proceedings.<BR>'); 

Writeln(F, '  '); 
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Writeln(F,  'Thank  you  again,  we"!!  see  you  at  the  conference.'); 

Writeln(F, '  '); 

Writeln(F, '  '); 

Writeln(F,'  '); 

Writeln(F, '  '); 

Writeln(F, '  '); 

Writeln(F, '  '); 

Writeln(F, '  Technical  Program  Chair'); 

{Fill  out  the  rest  of  the  page} 

Writeln(F,'  '); 

Writeln(F,'  '); 

Writeln(F,'  *); 

Writeln(F,'  '); 

Writeln(F, '  '); 

Writeln(F,'  '); 

Writeln(F,'  '); 

Writeln(F,'  '); 

Writeln(F,'  '); 

Writeln(F,'  '); 

Writeln(F,'  '); 

Writeln(F,'  '); 

Writeln(F,'  '); 

Writeln(F,'  '); 

Writeln(F,' - '); 

end  {Print  accept} 

else  if  Articles.fieldbyname  ('accepted'). asstring  =  'N'  then  begin  {Print  Reject} 

Writeln(F,  'We  are  sorry  to  inform  you  that  yoiu  article, '"  +dbTitle+  '"  was  not  selected 
for  this  yeaf's '); 

Writeln(F,  'conference.  <BR>'); 

Writeln(F,'  '); 

Writeln(F,  Thank  you  again  for  your  interest.  We  hope  to  see  you  at  the  conference.'); 
Writeln(F,'  '); 

Writeln(F,'  '); 

Writeln(F, '  '); 

Writeln(F,'  '); 

Writeln(F,  ’  '); 

Writeln(F, '  Technical  Program  Chair'); 

{Fill  out  the  rest  of  the  page} 

Writeln(F,'  '); 

Writeln(F,'  '); 

Writeln(F,'  '); 
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Writeln(F,’  ’); 

Writeln(F,’  '); 

WriteIn(F,’  '); 

Writeln(F,'  '); 

Writeln(F,'  ’); 

Writeln(F/  ’); 

Writeln(F,’  ’); 

Writeln(F,'  '); 

Writeln(F,’  '); 

Writeln(F,’  '); 

Writeln(F/ - '); 

end  {else  Print  Reject} 

else  Begin  {send  no  accept/reject  data} 

send('There  is  no  Accept/Reject  information  on  the  article +dbTitle+ 
end;  {bad  accept/reject  data} 

end  {If  flag} 

else  begin  {bad  flag} 

send('<centerxH2>Your  password  was  <strong>not  accepted!  !</strong></H2x/center>'); 
send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.’); 
send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm'’>try  to 
login  again.  </A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 
send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 
send  ('prosecution  for  your  actions.<BR>'); 
end;  {if  dflag  else} 


sendhdr('3',’The  file  has  been  generated!'); 

sendCThe  file  <B>'"  +dFileName+  "'</B>  is  ready  to  be  Downloaded.'); 
send('You  may  <A  HREF="../download/'  +dFileName+  '">Download  the  file  by  FTP 
now!  </AxBR>'); 
sendhr; 

send('<PxFORM  ACTION-’.. /cgi-win/Adminpwd.exe"  METHOI>="POST">'); 
send('<INPUT  TYPE="hidden"  Name=’'flag’'  Value="l">'); 
send(’<PxCENTERxlNPUT  TYPE="submit"  Value="Retum  to  the  System  Admin 
Options  page"></CENTERx/FORM>'); 
send  ('</BODYx/HTMI>’); 
closeStdout; 
closeApp(  application  ); 
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end;  {with  (^iEnvDatal  do} 
end;  {FormCreate} 
end. 
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Print  Initiation;  P  AbsCat.exe 


unit  Prabscat; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 

TFoiml  =  class(TForm) 

CGDEnvDatal;  TCGIEnvData; 

CGIDBl:  TCGIDB; 

DataSourcel;  TDataSource; 

Articles:  TTable; 

Authors:  TTable; 

procedure  FormCreate(Sender;  TObject); 
private 

{  Private  declarations } 
public 

{  Public  declarations } 
end; 

var 

Forml;  TForml; 
implementation 
{$R  *.DFM} 

procedure  TForml. FormCreate(Sender;  TObject); 
begin 


with  CGIEnvDatal  do  begin 

webSiteINIFilename;=paramstr(  1 ); 
application.  onException:=cgiErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 

send  (’<HTMLxHEAD>'); 
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SaidTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  (’</HEADxBODY  bgcolor=FFFFFF>'); 

end; 


with  cgiEnvDatal  do  begin 

send(’<centerxH2>Asilomar  Conference  System  Administration</H2></center>'); 
sendhr; 

send('<P>This  function  Prints  the  Abstract  Catalog,  organized  by  sessions  to  the  file  named 
below.'); 

send('Changes  to  File  Name  can  be  made  below.  If  the  file  does  not  exist,  it  will  be 
created.'); 

send(’<P>Rumiing  this  routine  may  take  a  long  time.<BR>'); 

send('<centerxFORM  ACTION="../cgi-win/P_absca2.exe"  ME'raOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name=''flag''  Value="  !">'); 
send('<B>File  Name:  </BxlNPUT  TYPE="text'’  Name=’'filename" 
Value="Abstract.Cat"xBR>'); 

send('<PxCENTERxlNPUT  TYPE- ’submit"  Value=="Print  the  Abstract  Catalog 
now"x/CENTERx/FORMxBR>'); 

sendhr; 

send('<FORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
sendC<INPUT  TYPE="hidden''  Name="flag"  Value="l">’); 
send('<PxCENTERxlNPUT  TYPE="submit"  Value="Retum  to  the  System  Admin 
Options  page"></CENTERx/FORM>’); 
send  ('<BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 

end;  {with  cgiEnvDatal  do} 

end;  {FormCreate} 

end. 
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Print  Confirmation:  Prabsca3.exe 


unit  PrabscaS; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 

TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

Articles:  TTable; 

CGIEnvDatal:  TCGBEnvData; 

CGIDBl:  TCGIDB; 

Authors:  TTable; 

AuthorsANumber:  TIntegerField; 

AuthorsLName:  TStrin^ield; 

AuthorsFName:  TStringField; 

Authorsinitial:  TStringField; 

AuthorsHonorific:  TStringField; 

Authorsinstitution:  TStringField; 

AuthorsDepartment:  TStringField; 

AuthorsMailstop:  TStringField; 

AuthorsAddress_Street:  TStringField; 

AuthorsAddress_City:  TStringField; 

AuthorsAddressState:  TStrin^ield; 

AuthorsAddress_Zip:  TStrin^ield; 

AuthorsCountry:  TStrin^ield; 

AuthorsPhoneJLocalNumber:  TStringField; 
AuthorsPhoneJFaxNumber:  TStringField; 

AuthorsEmail:  TStringField; 

Query  1:  TQuery; 

ArticlesPaperJNumber:  TIntegerField; 

ArticlesTitle:  TStringField; 

Articlesinvited:  TStringField; 

ArticlesAccepted:  TStringField; 

ArticlesContactAuthorNumber:  TIntegerField; 

ArticlesSession:  TStrin^ield; 

ArticlesOrderInSession:  TIntegerField; 

ArticlesPresentationTime:  TStringField; 

ArticlesKeywordl:  TStrin^ield; 

ArticlesKeyword2:  TStringField; 

ArticlesKeywordS:  TStringField; 
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ArticlesAbstract;  TMemoField; 
AiticlesContactOrder:  TStringField; 
ArticlesFName2:  TStringField; 
ArticlesLName2:  TStringField; 
Articleslnitial2:  TStringField; 
ArticlesInstitution2;  TStringField; 
ArticlesOrder2:  TStringField; 
ArticlesFNameS:  TStringField; 
ArticlesLNameS:  TStringField; 
ArticlesInitialS:  TStrin^ield; 
ArticlesInstitutionS;  TStrin^ield; 
ArticlesOrderS;  TStringField; 
ArticlesFName4:  TStringField; 
ArticlesLName4:  TStringField; 
ArticlesInitiaM:  TStringField; 
ArticlesInstitution4:  TStringField; 
ArticlesOrder4:  TStringField; 
ArticlesFNameS:  TStringField; 
ArticlesLNameS:  TStringField; 
ArticlesInitialS:  TStringField; 
ArticlesInstitutionS:  TStrin^ield; 
ArticlesOrderS:  TStringField; 
ArticlesFName6:  TStringField; 
ArticlesLName6:  TStringField; 
Articleslnitial6:  TStringField; 
ArticlesInstitution6:  TStringField; 
ArticlesOrder6:  TStringField; 

Query  IPaper  Number:  TIntegerField; 
QuerylTitle:  TStringField; 

Query  1  Invited:  TStringField; 
QuerylAccepted:  TStrin^ield; 

Query  IContactAuthorNumber:  TIntegerField; 
Query  1  Session:  TStringField; 
QueiylOrderlnSession:  TIntegerField; 
QuerylPresentationTime:  TStrin^ield; 

Query  IKeywordl:  TStringField; 
QuerylKeyword2:  TStrin^ield; 
QuerylKeywordS:  TStrin^ield; 

Query  lAbstract:  TMemoField; 
QuerylContactOrder:  TStrin^ield; 
QuerylFName2:  TStringField; 
QuerylLName2:  TStringField; 

Queryllnitial2:  TStrin^ield; 
QueTylInstitution2:  TStringField; 
QuerylOrder2:  TStringField; 
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QueiylFNameS;  TStringField; 
QuerylLNameS:  TStringField; 
QueryllnitiaB;  TStrin^ield; 

Query  llnstitutionS:  TStrin^ield; 

Query  1  Orders :  TStringField; 
QuerylFNanie4:  TStringField; 
QuerylLName4;  TStringField; 
QueryllnitiaM:  TStringField; 
QuerylInstitution4:  TStringField; 
QueiylOrder4:  TStringField; 

Query  IFNameS:  TStringField; 
QuerylLNameS:  TStringField; 
QueryllnitialS:  TStringField; 
QueryllnstitutionS:  TStrin^ield; 
QuerylOrderS:  TStringField; 
QuerylFName6:  TStringField; 
QuerylLName6:  TStringField; 
Queryllnitial6:  TStrin^ield; 
QuerylInstitution6:  TStrin^ield; 
QuerylOrder6:  TStringField; 
procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations } 
public 

{  Public  declarations  } 
end; 

var 

Forml:  TForml; 

MyFileHandle:  THandle; 

F:  Textfile; 

theabstract ;  TStringList; 
theAuthors :  TStringList; 

i:  integer; 

dbContactOrderInt:  integer; 
dbOrder2int:  integer; 
dbOrderSint:  integer; 
dbOrder4int;  integer; 
dbOrderSint:  integer; 
dbOrderbint:  integer; 
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dFileName,  dFileNamein,  dflag:  string; 
PariiFile,  OldFile;  string; 

dbPaperNumber;  string; 
dbtitle:  string; 
dbinvited;  string; 
dbaccepted:  string; 
dbANumber:  string; 
dbSession:  string; 
dbSessOrder;  string; 
dbkeywordl:  string; 
dbkeyword2:  string; 
dbkeywordS;  string; 
dbabstract;  string; 
dbcontactOrder;  string; 

dbfhame2;  string; 
dblname2:  string; 
dbinitial2;  string; 
dbinstitution2:  string; 
dborder2;  string; 

dbfhameS:  string; 
dblnameS:  string; 
dbinitiaB:  string; 
dbinstitutionS;  string; 
dborderS:  string; 

dbfhame4:  string; 
dblname4:  string; 
dbinitiaM:  string; 
dbinstitution4:  string; 
dborder4:  string; 

dbfhame5:  string; 
dblnameS:  string; 
dbinitialS;  string; 
dbinstitutionS:  string; 
dborderS  ;  string; 

dbfhameb:  string; 
dblnameb;  string; 
dbinitial6:  string; 
dbinstitution6:  string; 
dborderb:  string; 
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dbFName ;  string; 
dbLName :  string; 
dblnitial:  string; 
dbHonorific :  string; 
dblnstitution :  string; 


implementation 
{$R  *.DFM} 

procedure  TFonnl.FormCreate(Sender:  TObject); 
begin 

with  CGEnvDatal  do 
begin 

webSiteINIFilename:=paramstr(l); 

application.onException;=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 

{ Send  the  html  page  } 

send(’<HEAD>’); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers  System  Admin:  Print  an  Article'); 

sendC</HEAD>'); 

send('<center> 

Asilomar  Conference  System  Administration 

</center>'); 

sendhr; 


{  Get  the  FORM  Data) 
dflag:=  getsmallfield  ('flag'); 
dFileNamein:=  getsmallfield  ('filename'); 


if  dflag  =  T  then  begin 


try 

if  ExtractFileExt(dFileNamein)  =  '.Cat'  then  dFileName:—  dFileNamein 
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else  dFileName”  ChangeFileExt("+dFileNamem+ ",  '.Cat'); 

PathFile;=  ’c:\website\DownloadV  +dFileName+"; 
if  FileExists(PathFile)  then  begin 
{rename  old  file} 

OldFile  :=  ChangeFileExt("+PathFile+ ",  ’.OLD'); 
renamefile(PathFile,  OldFile); 

{send  notice} 

send(There  was  an  existing  file  named +PathFile+ ’which  was  renamed  to 
+01dFile+ '".’); 
end; 

MyFileHandle  :=  filecreate(PathFile); 
finally 

{Prepare  File  for  Writing} 

AssignFile  (F,  PathFile); 

Ai^nd(F); 

end;  {try} 


With  Queryl  do  begin 
{prepare;} 
close; 
sqLclear; 

sql.add('Select  *  FROM  Submissi  WHERE  Accepted  =  "Y"  Order  by  Session, 
OrderInSession'); 
open; 

first; 


While  not  Queryl  .EOF  do  begin 


{ Retrieve  record } 

dbPaper_Niimber:=  fieldByName  ('Paper_Number').asstring; 
dbtitle:=  fieldByName  ('title').asstring; 

{dbinvited;=  fieldByName  ('mvited').asstring;} 
dbaccepted:=  fieldByName  (’Accepted').asstring; 
dbANumber~  fieldByName  ('ContactAuthorNumber').asstring; 
dbSession:=  fieldByName  ('Session').asstring; 
dbSessOrder;=fieldbyname  COrderInSession').  asstring; 
dbkeywordl:=  fieldByName  ('keywordr).asstring; 
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dbkeyword2:=  fieldByName  ('keyword2').asstring; 
dbkeyword3:=  fieldByName  ('keyword3').asstring; 

CGIDBl.memoToStringList  (fieldbyname  ('Abstract'),  theabstract); 

dbcontactOrder:=  fieldByName  ('contactOrder').asstring; 

dborder2;=  fieldByName  ('order2').asstring; 
dbfhame2;=  fieldByName  ('fhame2').asstring; 
dbinitial2:=  fieldByName  ('initial2').asstring; 
dblname2;=  fieldByName  ('lname2').asstring; 

{dbmstitution2:=  fieldByName  ('institution2').asstring;} 

dborder3:=  fieldByName  ('order3').asstring; 
dbfhame3;=  fieldByName  ('fiiame3').asstring; 
dbinitial3:=  fieldByName  ('initial3').asstring; 
dblname3:=  fieldByName  ('lname3').asstring; 

{dbinstitution3:=  fieldByName  ('institution3').asstring;} 

dborder4;=  fieldByName  ('order4').asstring; 
dbfiiame4:=  fieldByName  ('fhame4').asstring; 
dbinitial4~  fieldByName  ('imtial4').asstring; 
dblname4:=  fieldByName  ('lname4').asstring; 

{dbinstitution4:=  fieldByName  ('institution4').asstring;} 

dborder5:=  fieldByName  ('order5').asstring; 
dbfhame5;=  fieldByName  ('fhame5').asstring; 
dbinitial5;=  fieldByName  ('initial5').asstring; 
dblname5:=  fieldByName  ('lname5').asstring; 

{dbinstitution5:=  fieldByName  ('institution5').asstring;} 

dborder6:=  fieldByName  ('order6').asstring; 
dbfiiame6;=  fieldByName  ('fhame6').asstrmg; 
dbimtial6;=  fieldByName  ('initial6').asstring; 
dbbiame6;=  fieldByName  ('lname6').asstring; 

{dbinstitution6;=  fieldByName  ('institution6').asstring;} 

{  Get  Author  Name  information  from  the  AUTHOR  Table  } 

with  Authors  do  begin 

{  Move  to  proper  record} 

open; 

first; 

while  fieldbyName('ANumber').asstring  o  dbANumber  do 
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next; 


{  Retrieve  Author  Name  information } 

dbFName  :=  fieldByName(TName').AsString; 
dbLName  :=  fieldByName^l/Name').  AsString; 
c&Initial  :=  fieldByNameCInitialO.AsString; 
dbHonorific  :=  fieldByNameCHonorific'XAsString; 
dblnstitution  :=  fieIdByNameCInstitution').AsString; 
close; 

end;  (with  Authors} 


(Print  Article  data  to  file} 

Writeln(F,  ’  '); 

Writeln(F, '  ’); 

Writeln(F,'  ’+dbtitle+'  ’); 

Writeln(F,  ’  '); 

Writeln(F, '  ’); 

Writeln(F,  ’  ’); 

Writeln(F, '  ’); 

WriteIn(F,  ’  ’); 

Writeln(F, '  *); 

Writeln(F,  'Registration  Number: '  +dbPaper_Number+ "); 

Writeln(F, '  '); 

Writeln^,  'Keyword  #1: '  +dbkeywordl+ "); 

Writeln(F,’  ’); 

if  dbKeyword2  o  None'  then  Writeln(F,  Keyword  #2: '  +dbkeyword2+ "); 
Writeln(F, '  '); 

if  dbKeywordS  o  None'  then  Writeln(F,  Keyword  #3: '  +dbkeyword3+ "); 
Writeln(F, '  '); 

Writeln(F, '  ’); 


(Determine  Order  of  Authors } 

1heAuthors:=  TStringList.  create; 

(Send  the  Authors} 

WTiteln(F,  'Authors:'); 

WTiteln(F,'  '); 

if  dbContactOrder  = "  then  Writeln  (F, "  +dbFName+ ' '  +dblnitial+ '  ’  +dbLName+ ', ' 
+dbInstitution+ ") 
else  begin 

(initialize  the  stringlist} 
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for  i:=  0  to  6  do 

theAuthors.add('This  string  is  not  used'); 
dbContactOrderInt;-strtoint(dbContactOrder); 

theAuthors[dbContactOrderInt]:=  "+dbFNanie+ ' '  +dblnitial+ ' '  +dbLName+ ’ 
+dbInstitution+ 

if  dbOrder2  o "  then  begin 
db0rder2Int;=  strtoint(dbOrder2); 

theAuthors[dbOrder2Int]:=  "+dbFName2+ ' '  +dblnitial2+ ' '  +dbLNaniie2+ 
end; 

if  dbOrderS  o "  then  begin 
dbOrderSInt”  strtoint(dbOrder3); 

theAuthors[dbOrder3Int]:=  "+dbFName3+ ' '  +dblnitiai3+ ' '  +dbLName3+ "; 
end; 

if  db0rder4  o "  then  begin 
db0rder4Int:=  strtoint(dbC)rder4); 

theAuthors[dbOrder4Int]:=  "+dbFName4+ '  ’  +dblnitial4+ ' '  +dbLName4+ "; 
end; 

if  dbOrderS  o "  then  begin 
db0rder5Int;=  strtoint(dbOrder5); 

theAuthors[dbOrder5Int]:=  "+dbFName5+ ' '  +dblnitial5+ ' '  +dbLName5+ "; 
end; 

if  dbOrderb  o "  then  begin 
db0rder6Int;=  strtoint(dbC)rder6); 

theAuthors[dbOrder6Int]:=  "+dbFName6+ ' '  +dblnitial6+ ' '  +dbLNaine6+ "; 
end; 

for  i:=  1  to  6  do 

if  theAuthors[i]  o  This  string  is  not  used*  then  Writeln(F, "  +theAuthors[i]+ ' 


end;  {else} 

{Send  the  Abstract} 

Writeln(F, '  ’); 

Writeln(F,  ’  '); 

Writeln(F,  'Abstract; '); 

Writeln(F, '  '); 

for  i  ;=  0  to  theabstractcount  - 1  do 
Write(F, "  +theabstract[i]+ "); 
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theabstract.free;  {release  the  memory  held  by  'theabstract*} 


(Fill  out  the  rest  of  the  page} 

Writeln(F,'  '); 

Writeln(F,'  y, 

Writeln(F,’  '); 

Writeln(F,’  '); 

Writeln(F,'  '); 

Writeln(F,'  '); 

Writeln(F,'  '); 

Writeln(F,'  '); 

Writeln(F,’  ’); 

Writeln(F,'  '); 

Writeln(F,’  ’); 

Writeln(F,’  '); 

Writeln(F,’  '); 

Writeln(F,'  ’); 

Writeln(F,'  ’); 

Writeln(F,’  '); 

Writeln(F,'  '); 

Writeln(F,  ’  ’); 

Writeln(F,'  ’); 

Writeln(F,'  ’); 

Writeln(F,'  '); 

Writeln(F,'  ’); 

Writeln(F,’  '); 

Writeln(F,'  '); 

Writeln(F,'  '); 

Writeln(F,’  '); 

Writeln(F,’ - '); 

next; 

end;  {while  query  1} 
close; 

end;  {with  query  1} 


closeFile(F); 


end  {If  flag} 

else  begin  {bad  flag} 
send('<center> 
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Asilomar  Conference  on  Signals,  Systems,  8c  Computers 


</center>'); 

sendhr; 

send('<center> 

Your  password  was  <strong>not  accepted!  !</strong> 

</center>'); 

sendC 

Please  ensure  that  you  are  authorized  to  access  this  information.’); 
send  (' 

If  you  made  an  error,  then  please  try  to  login  again.'); 
send  (' 

If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 

send  (’maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal  ’); 
send  (’prosecution  for  your  actions. 

’); 

end;  {if  dflag  else} 


sendhdr(’3','The  file  has  been  generated!’); 

send(’The  file "’  +dFileName+  ’"  is  ready  to  be  Downloaded.’); 
send(’You  may  Download  the  file  by  FTP  now! 

sendhr; 

send(’ 

<FORM  ACTION="../cgi-win/Adminpwd.exe"  ME'raOD="POST">’); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="  !">’); 
send(’ 

<CENTERxINPUT  TYPE="submit'’  Value-’Retum  to  the  System  Admin  Options 
page"x/CENTERx/FORM>’); 
send(’<BODY>’); 
closeStdout; 

closeApp(  application  );  {  don’t  leave  form  around } 
end;  {withCGIEnvDatal} 
end;  {withFormCreate} 
end. 
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